Fixed */ def, added fixed point arithmetic to example.

[forth.jl.git] / src / lib.4th

diff --git a/src/lib.4th b/src/lib.4th
index f4b28e6..efadf95 100644 (file)
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -1,6 +1,6 @@
 : / /MOD SWAP DROP ;
 : MOD /MOD DROP ;
-: */ * / ;
+: */ -ROT * SWAP / ;
 
 : NEGATE 0 SWAP - ;