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
|
