6.1.2.d

From RevaWiki

Jump to: navigation, search
Index: src/reva.f
===================================================================
RCS file: /vservers/ronwareo/cvs/reva/src/reva.f,v
retrieving revision 1.373
diff -d -u -w -r1.373 reva.f
--- src/reva.f	15 Nov 2006 05:49:01 -0000	1.373
+++ src/reva.f	19 Nov 2006 04:25:08 -0000
@@ -96,7 +96,7 @@
 : '' parsews (find) ;
 : vector 0 : vector! $e9 1, , ;
 variable turnkey?
-: ' [ vector ] '' | drop through...
+: ' '' | drop through...
 : xt 00; >xt @ ; | take dict and return 0 or xt
 : find (find) xt ;
 : last@ last @ ;
@@ -822,8 +822,6 @@
 forth
 hide ((cmp))
 
-: ' '' 0; >xt @ ; 
-
 ~util
 defer disassemble ' dump is disassemble 
 
Personal tools