Mercurial > urweb

comparison src/mono_reduce.sml @ 290:df00701f2323

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
'read' type class
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 11:53:30 -0400
parents c0e4ac23522d
children 59dc042629b9
comparison
equal deleted inserted replaced
289:0cc956a3216f 290:df00701f2323
43 43
44 | EPrim _ => false 44 | EPrim _ => false
45 | ERel _ => false 45 | ERel _ => false
46 | ENamed _ => false 46 | ENamed _ => false
47 | ECon (_, _, eo) => (case eo of NONE => false | SOME e => impure e) 47 | ECon (_, _, eo) => (case eo of NONE => false | SOME e => impure e)
48 | ESome (_, e) => impure e
48 | EFfi _ => false 49 | EFfi _ => false
49 | EFfiApp _ => false 50 | EFfiApp _ => false
50 | EApp ((EFfi _, _), _) => false 51 | EApp ((EFfi _, _), _) => false
51 | EApp _ => true 52 | EApp _ => true
52 53