From RevaWiki
Index: lib/alg/structs
===================================================================
RCS file: /vservers/ronwareo/cvs/reva/lib/alg/structs,v
retrieving revision 1.10
diff -d -u -w -r1.10 structs
--- lib/alg/structs 14 Nov 2006 19:26:50 -0000 1.10
+++ lib/alg/structs 16 Nov 2006 05:07:45 -0000
@@ -13,9 +13,9 @@
@ dup allot ( and make the variable that long )
r> swap 0 fill
;
-: (sizeof) ( a n -- m ) find >body @ ;
-: (sallot) ( a n -- a' ) find >body @ here swap allot ;
-: (sallocate) ( a n -- a' ) find >body @ allocate ;
+: (sizeof) ( a n -- m ) find @ ;
+: (sallot) ( a n -- a' ) find @ here swap allot ;
+: (sallocate) ( a n -- a' ) find @ allocate ;
macro
: sallot: ( <name> -- a ) parsews swap literal, literal, p: (sallot) ;
: sallocate: ( <name> -- a ) parsews swap literal, literal, p: (sallocate) ;
Index: lib/net/cgi
===================================================================
RCS file: /vservers/ronwareo/cvs/reva/lib/net/cgi,v
retrieving revision 1.4
diff -d -u -w -r1.4 cgi
--- lib/net/cgi 24 Oct 2006 16:49:35 -0000 1.4
+++ lib/net/cgi 16 Nov 2006 05:07:45 -0000
@@ -86,7 +86,7 @@
then
;
-' ~params >body constant PARAMS
+' ~params constant PARAMS
: find-param ( a n -- dict | 0 )
PARAMS in~ ~sys find-word ;
: create-param ( a1 n1 a2 n2 )
