indirection

2023-11-14 20:30:05 -07:00
parent 3ba7df2b04
commit 535c059afc
1 changed files with 1 additions and 1 deletions
--- a/src/TIM.hs
+++ b/src/TIM.hs
@@ -275,7 +275,7 @@ step st =
                   | isTrue,     needsEval tn   = h
                   | not isTrue, needsEval fn   = h
                   | otherwise                  =
-                       update h rootAddr (if isTrue then tn else fn)
+                       update h rootAddr (NInd $ if isTrue then t else f)

                [cn,tn,fn] = hViewUnsafe h <$> [c,t,f]
                [c,t,f] = getArgs h s