Compare commits
2 Commits
65ef1c7e6d
...
f477fc16df
| Author | SHA1 | Date | |
|---|---|---|---|
| f477fc16df | |||
| 6506b4fcca |
@@ -67,7 +67,6 @@ lookupExp =
|
||||
subst (Variable "if") ifExp .
|
||||
subst (Variable "equal") equalExp $ parse
|
||||
"\\c. rec lookup = \\xs. case xs of \
|
||||
\ -- TODO: Fix for Nil() \
|
||||
\ { Cons(b,bs) -> \
|
||||
\ case b of \
|
||||
\ { Branch(c', xs, e') -> if (equal c c') Pair(xs,e') (lookup bs) } \
|
||||
|
||||
Reference in New Issue
Block a user