Make it clean

2025-11-25 19:17:22 +01:00
parent 855b97adc5
commit 364ea870ed
1 changed files with 1 additions and 0 deletions
--- a/3or4/Interpreter/Self.hs
+++ b/3or4/Interpreter/Self.hs
@ -37,6 +37,7 @@ elemExp =

 substBrExp :: Exp
 substBrExp =
+  subst (Variable "if") ifExp .
  subst (Variable "elem") elemExp $ parse
  "\\subst. \\var. \\b. case b of \
  \ { Branch(c,vs,e') -> if (elem var vs) Branch(c,vs,e') Branch(c,vs, subst e') \