aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/defer-seal.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/defer-seal.frt')
-rw-r--r--amforth-6.5/common/lib/defer-seal.frt11
1 files changed, 0 insertions, 11 deletions
diff --git a/amforth-6.5/common/lib/defer-seal.frt b/amforth-6.5/common/lib/defer-seal.frt
deleted file mode 100644
index 9c50a84..0000000
--- a/amforth-6.5/common/lib/defer-seal.frt
+++ /dev/null
@@ -1,11 +0,0 @@
-
-\ ' turnkey defer:seal
-
-: defer:seal ( XT -- )
- dup defer@ ( -- XT' XT )
- swap ( -- XT XT')
- dup ['] quit @i ( get DO_COLON) swap !i
- 1+ dup rot swap !i
- 1+ ['] exit swap !i
-;
-