From 39099c0398a978965a71409bcec67f20a8c02fc7 Mon Sep 17 00:00:00 2001 From: Adrian Kummerlaender Date: Wed, 19 Apr 2017 22:22:18 +0200 Subject: Add base library for non-primitive words --- library/base.slang | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 library/base.slang diff --git a/library/base.slang b/library/base.slang new file mode 100644 index 0000000..dc2c725 --- /dev/null +++ b/library/base.slang @@ -0,0 +1,4 @@ +§ 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 ; -- cgit v1.2.3