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