summaryrefslogtreecommitdiff
path: root/src/Grasp
diff options
context:
space:
mode:
Diffstat (limited to 'src/Grasp')
-rw-r--r--src/Grasp/Interpreter.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Grasp/Interpreter.hs b/src/Grasp/Interpreter.hs
index ad9215a..098a198 100644
--- a/src/Grasp/Interpreter.hs
+++ b/src/Grasp/Interpreter.hs
@@ -292,9 +292,9 @@ modI g ip = do
error ("Instruction " ++ (show node) ++ " requires " ++
"a single left edge and a single right edge")
- (x,y) | not (all isFloat x && all isFloat y) ->
+ (x,y) | not (all isInteger x && all isInteger y) ->
error ("Instruction " ++ (show node) ++
- " has non numeric arguments")
+ " has non integer arguments")
(x,y) -> let s = (read . head $ x) `mod` (read . head $ y)
in return (foldl' (\gr n -> reLabel gr n (show s)) g outN)
@@ -350,9 +350,9 @@ putcI g ip = do
error ("Instruction " ++ (show node) ++
" must have at least one in edge")
- x | not (isFloat $ inL!!r) ->
+ x | not (isInteger $ inL!!r) ->
error ("Randomly chosen in edge to " ++ (show node) ++
- " does not contain a number")
+ " does not contain an integer")
x -> return . chr . read $ inL!!r