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