[Wisp-cvs] wisp/users/dig builtin.tran,1.3,1.4

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv31252

Modified Files:
	builtin.tran 
Log Message:
extracted |by-default| from |(opt)|

Index: builtin.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/builtin.tran,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- builtin.tran	18 May 2003 16:15:10 -0000	1.3
+++ builtin.tran	19 May 2003 13:02:52 -0000	1.4
@@ -6,8 +6,12 @@
 \
 \\\\ @(#) $Id$
 
+:[ sym int ] by-default \ ( symbol int -- symbol )
+    over weaker bind
+;
+
 :[ sym ] (opt) \ ( symbol -- symbol )
-    dup weaker 0 swap bind
+    0 by-default
 ;
 
 :[ ] tetras dup + dup + ; \ FIXME