diff options
| -rw-r--r-- | src/Grasp/Interpreter.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Grasp/Interpreter.hs b/src/Grasp/Interpreter.hs index 56ead7b..03a2978 100644 --- a/src/Grasp/Interpreter.hs +++ b/src/Grasp/Interpreter.hs @@ -66,7 +66,7 @@ execute g ([]:ips) out = execute g ips out execute g (cur:rest) out = let (node,instruction) = head cur condL = targetLabels g (getByLabel "cond" (Graph.out g node)) - goAhead = all (\x -> isJust (readMaybe x >>= return . (/= 0.0))) condL + goAhead = all (\x -> isFloat x && (read :: String -> Float) x /= 0.0) condL in case (goAhead, instruction) of (False,_) -> do |