From c586e7d2343fa735a9b27e0b1a201dd2cb2bc68e Mon Sep 17 00:00:00 2001
From: Tom Smeding <t.j.smeding@uu.nl>
Date: Mon, 21 Apr 2025 21:56:34 +0200
Subject: Add integer modulo operator

---
 src/Interpreter.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Interpreter.hs')

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
-- 
cgit v1.2.3-70-g09d2