Baaa

2025-11-25 19:51:42 +01:00
1 changed files with 1 additions and 1 deletions
--- a/3or4/Interpreter/Self.hs
+++ b/3or4/Interpreter/Self.hs
@@ -70,7 +70,7 @@ lookupExp =
  \ -- TODO: Fix for Nil() \
  \ { Cons(b,bs) -> \
  \     case b of \
-  \       { Branch(c', bs, e') -> if (equal c c') Pair(bs,e') (lookup bs) } \
+  \       { Branch(c', xs, e') -> if (equal c c') Pair(xs,e') (lookup bs) } \
  \ }"
 substsExp :: Exp