diff options
Diffstat (limited to 'src/Interpreter.hs')
| -rw-r--r-- | src/Interpreter.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Interpreter.hs b/src/Interpreter.hs index 572f2bd..58d79a5 100644 --- a/src/Interpreter.hs +++ b/src/Interpreter.hs @@ -184,6 +184,7 @@ interpretOp op arg = case op of OExp st -> floatingIsFractional st $ exp arg OLog st -> floatingIsFractional st $ log arg OIDiv st -> integralIsIntegral st $ uncurry quot arg + OMod st -> integralIsIntegral st $ uncurry rem arg where styIsEq :: SScalTy t -> (Eq (Rep (TScal t)) => r) -> r styIsEq STI32 = id |