Mercurial > urweb

comparison src/core_util.sml @ 339:075b36dbb1a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Crud supports INSERT
author Adam Chlipala <adamc@hcoop.net>
date Sun, 14 Sep 2008 15:10:04 -0400
parents e976b187d73a
children ab3177746c78
comparison
equal deleted inserted replaced
338:e976b187d73a 339:075b36dbb1a4
422 S.bind2 (mfc ctx field, 422 S.bind2 (mfc ctx field,
423 fn field' => 423 fn field' =>
424 S.map2 (mfc ctx rest, 424 S.map2 (mfc ctx rest,
425 fn rest' => 425 fn rest' =>
426 (EField (e', c', {field = field', rest = rest'}), loc))))) 426 (EField (e', c', {field = field', rest = rest'}), loc)))))
427 | EWith (e1, c, e2, {field, rest}) =>
428 S.bind2 (mfe ctx e1,
429 fn e1' =>
430 S.bind2 (mfc ctx c,
431 fn c' =>
432 S.bind2 (mfe ctx e2,
433 fn e2' =>
434 S.bind2 (mfc ctx field,
435 fn field' =>
436 S.map2 (mfc ctx rest,
437 fn rest' =>
438 (EWith (e1', c', e2', {field = field', rest = rest'}),
439 loc))))))
427 | ECut (e, c, {field, rest}) => 440 | ECut (e, c, {field, rest}) =>
428 S.bind2 (mfe ctx e, 441 S.bind2 (mfe ctx e,
429 fn e' => 442 fn e' =>
430 S.bind2 (mfc ctx c, 443 S.bind2 (mfc ctx c,
431 fn c' => 444 fn c' =>