aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/double/m-star-slash.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/forth2012/double/m-star-slash.frt')
-rw-r--r--amforth-6.5/common/lib/forth2012/double/m-star-slash.frt7
1 files changed, 0 insertions, 7 deletions
diff --git a/amforth-6.5/common/lib/forth2012/double/m-star-slash.frt b/amforth-6.5/common/lib/forth2012/double/m-star-slash.frt
deleted file mode 100644
index 94959d4..0000000
--- a/amforth-6.5/common/lib/forth2012/double/m-star-slash.frt
+++ /dev/null
@@ -1,7 +0,0 @@
-
-: m*/ ( d1 n2 u3 -- dquot ) \ double m-star-slash
- >r s>d >r abs rot rot
- s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*
- swap >r 0 d+ r> rot rot r@ um/mod rot rot r> um/mod
- nip swap r> if dnegate then
-;