From 47d9abb9652d7ad1a7896d3353bdeb0904d9827c Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 18 Jul 2017 20:55:08 +0000
Subject: Add remI

---
 ABC/Machine/BStack.icl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'ABC/Machine/BStack.icl')

diff --git a/ABC/Machine/BStack.icl b/ABC/Machine/BStack.icl
index 70a1f1a..70007fd 100644
--- a/ABC/Machine/BStack.icl
+++ b/ABC/Machine/BStack.icl
@@ -102,6 +102,10 @@ bs_mulI   :: BStack -> BStack
 bs_mulI [Int m:Int n:s] = bs_pushI (m * n) s
 bs_mulI _               = abortn "bs_mulI: no integers"
 
+bs_remI   :: BStack -> BStack
+bs_remI [Int m:Int n:s] = bs_pushI (m rem n) s
+bs_remI _               = abortn "bs_remI: no integers"
+
 bs_subI   :: BStack -> BStack
 bs_subI [Int m:Int n:s] = bs_pushI (m - n) s
 bs_subI _               = abortn "bs_subI: no integers"
-- 
cgit v1.2.3