diff options
Diffstat (limited to 'src/Interpreter.hs')
| -rw-r--r-- | src/Interpreter.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Interpreter.hs b/src/Interpreter.hs index dd558fe..d80a76e 100644 --- a/src/Interpreter.hs +++ b/src/Interpreter.hs @@ -173,7 +173,7 @@ interpretOp op arg = case op of ORecip st -> floatingIsFractional st $ recip arg OExp st -> floatingIsFractional st $ exp arg OLog st -> floatingIsFractional st $ log arg - OIDiv st -> integralIsIntegral st $ uncurry div arg + OIDiv st -> integralIsIntegral st $ uncurry quot arg where styIsEq :: SScalTy t -> (Eq (Rep (TScal t)) => r) -> r styIsEq STI32 = id |