X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=sys.f;h=23fed8781df27e3ee98bfff9a2bd8b12375d1968;hb=02f53b20b4f7244a84a442bbae10eb8401abcfc5;hp=bc9dae9b53f5cae19ac523786215678299ae9e3c;hpb=c4dd16293a71e782e36f795d302bf944056ffd4c;p=rrq%2Fjonasforth.git

diff --git a/sys.f b/sys.f
index bc9dae9..23fed87 100644
--- a/sys.f
+++ b/sys.f
@@ -9,3 +9,7 @@ EXIT [
   [ S" [" FIND >CFA , ]
   EXIT
 [ IMMEDIATE
+
+: / /MOD DROP ;
+: MOD /MOD SWAP DROP ;
+: NEG 0 SWAP - ;