Fixed bug in observers executing 1 tick too long.

niswegmann · Nov 9, 2011 · e2bffae · e2bffae
1 parent 5efd202
commit e2bffae
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Copilot/Core/Interpret/Eval.hs b/src/Copilot/Core/Interpret/Eval.hs
@@ -306,5 +306,5 @@ evalObserver showType k exts strms
 
 evalExprs_ :: Int -> Expr a -> ExtEnv -> Env Id -> [a]
 evalExprs_ k e exts strms = 
-  map (\i -> evalExpr_ i e exts [] strms) [0..k]
+  map (\i -> evalExpr_ i e exts [] strms) [0..(k-1)]