From c0dfbd7ca37ae769d87ae99c1a6a8443a2a8851f Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 18 Jul 2017 21:01:31 +0000
Subject: Add negI

---
 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 70007fd..a9a2d0e 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_negI   :: BStack -> BStack
+bs_negI [Int n:s] = bs_pushI (~n) s
+bs_negI _         = abortn "bs_negI: no integer"
+
 bs_remI   :: BStack -> BStack
 bs_remI [Int m:Int n:s] = bs_pushI (m rem n) s
 bs_remI _               = abortn "bs_remI: no integers"
-- 
cgit v1.2.3