Finished defer/is.

[scheme.forth.jl.git] / defer-is.4th

diff --git a/defer-is.4th b/defer-is.4th
index bf3225a..07f1342 100644 (file)
--- a/defer-is.4th
+++ b/defer-is.4th
@@ -26,3 +26,10 @@ hide abort-defer
         ['] lit , , ['] defer! ,
     then
 ;
+
+: :noname
+    here current @ 1+ @ ,
+    current @ 1+ !
+    0 ,
+    here docol ,
+    [compile] ] ;