Mercurial > urweb

comparison src/core_util.sml @ 445:dfc8c991abd0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace 'with' with '++'
author Adam Chlipala <adamc@hcoop.net>
date Fri, 31 Oct 2008 09:30:22 -0400
parents bd9ee9aeca2f
children 07f6576aeb0a
comparison
equal deleted inserted replaced
444:f45f23ae20ed 445:dfc8c991abd0
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}) => 427 | EConcat (e1, c1, e2, c2) =>
428 S.bind2 (mfe ctx e1, 428 S.bind2 (mfe ctx e1,
429 fn e1' => 429 fn e1' =>
430 S.bind2 (mfc ctx c, 430 S.bind2 (mfc ctx c1,
431 fn c' => 431 fn c1' =>
432 S.bind2 (mfe ctx e2, 432 S.bind2 (mfe ctx e2,
433 fn e2' => 433 fn e2' =>
434 S.bind2 (mfc ctx field, 434 S.map2 (mfc ctx c2,
435 fn field' => 435 fn c2' =>
436 S.map2 (mfc ctx rest, 436 (EConcat (e1', c1', e2', c2'),
437 fn rest' => 437 loc)))))
438 (EWith (e1', c', e2', {field = field', rest = rest'}),
439 loc))))))
440 | ECut (e, c, {field, rest}) => 438 | ECut (e, c, {field, rest}) =>
441 S.bind2 (mfe ctx e, 439 S.bind2 (mfe ctx e,
442 fn e' => 440 fn e' =>
443 S.bind2 (mfc ctx c, 441 S.bind2 (mfc ctx c,
444 fn c' => 442 fn c' =>