[Wisp-cvs] wisp/doc/examples angry.wth,1.3,1.4 banana.wth,1.3,1.4 false.wth,1.3,1.4

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

Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv4879/doc/examples

Modified Files:
	angry.wth banana.wth false.wth 
Log Message:
Implemented the beginnings of Worth's delay-optimization.

Index: angry.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/angry.wth,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- angry.wth	22 Jul 2002 14:53:06 -0000	1.3
+++ angry.wth	31 Aug 2002 14:29:22 -0000	1.4
@@ -9,13 +9,13 @@
 (include io)
 (include linux)
 
-(: _start
-   #\0
-   begin
-       dup emit
-       1 +
-   dup #\9 > until
-   cr
-   0 sys:exit)
+(defun _start
+  #\0
+  begin
+    dup emit
+    1 +
+  dup #\9 > until
+  cr
+  0 sys.exit)
 
-; vim: ft=wisp
+; vim: ft=worth

Index: banana.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/banana.wth,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- banana.wth	22 Jul 2002 14:53:06 -0000	1.3
+++ banana.wth	31 Aug 2002 14:29:22 -0000	1.4
@@ -9,10 +9,10 @@
 (include io)
 (include linux)
 
-(: _start
- "ba" type
- 3 begin "na" type 1- dup 0 = until
- cr
- 0 sys:exit)
+(defun _start
+  "ba" type
+  3 begin "na" type 1- dup 0 = until
+  cr
+  0 sys.exit)
 
-; vim: ft=wisp
+; vim: ft=worth

Index: false.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/false.wth,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- false.wth	22 Jul 2002 14:53:06 -0000	1.3
+++ false.wth	31 Aug 2002 14:29:22 -0000	1.4
@@ -8,6 +8,7 @@
 
 (include linux)
 
-(: _start 1 sys:exit)
+(defun _start
+  1 sys.exit)
 
-; vim:ft=wisp
+; vim: ft=worth