diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-03-04 21:33:56 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-03-04 21:45:50 +0100 |
| commit | d751deedfdc2ba5fbeb72ede5754587a1f677835 (patch) | |
| tree | 7bbb7ea6ac1482599a597feee1401d2b781b4971 /src/Interpreter.hs | |
| parent | bacd70ca6ba028e935bb512aeee713943901acdd (diff) | |
Compile: Fix right-precedence of (*)
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 |