From f1fc6d8fd21b0bfd302e1e7db01b8d500fb37073 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Thu, 20 Apr 2017 15:32:27 +0200
Subject: Add further stack ops, comparators to base library

---
 library/base.slang | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'library')

diff --git a/library/base.slang b/library/base.slang
index dc2c725..531b189 100644
--- a/library/base.slang
+++ b/library/base.slang
@@ -1,4 +1,11 @@
+§ nip  swp pop ;
+§ tuck swp ovr ;
+
 § abs dup 0 < if -1 * then else ;
 
 § min ovr ovr < if     pop then swp pop else ;
 § max ovr ovr < if swp pop then     pop else ;
+
+§ >  swp < ;
+§ <= > not ;
+§ >= < not ;
-- 
cgit v1.2.3