From RevaWiki
Index: lib/choices
===================================================================
RCS file: /vservers/ronwareo/cvs/reva/lib/choices,v
retrieving revision 1.3
diff -d -u -w -r1.3 choices
--- lib/choices 28 Sep 2006 21:55:56 -0000 1.3
+++ lib/choices 16 Nov 2006 04:35:49 -0000
@@ -23,8 +23,8 @@
while 2drop
| don't forget to clean up if we didn't do anything:
rdrop action @execute ;
-: choice ( xt n -- ) last@ >xt @ >body ++ , , ;
-: default ( xt -- ) last@ >xt @ >body cell+ ! ;
+: choice ( xt n -- ) last@ >xt @ ++ , , ;
+: default ( xt -- ) last@ >xt @ cell+ ! ;
pop~
