[Wisp-cvs] wisp/doc paw.txt,1.10,1.11 wisp.vim,1.229,1.230 worth.vim,1.23,1.24

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

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

Modified Files:
	paw.txt wisp.vim worth.vim 
Log Message:
Implemented |<u8vector>|.

Index: paw.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/paw.txt,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- paw.txt	4 Sep 2002 14:33:22 -0000	1.10
+++ paw.txt	18 Sep 2002 21:15:12 -0000	1.11
@@ -59,7 +59,7 @@
     * |vector-set!|.
 
 
-3. Prefer |ref| where possible <new>
+3. Prefer |ref| where possible <act>
   The |ref| procedure should be the preferred way to access members
   of strings and vectors of any kind.  Accordingly, PAW-3
   obsoletes |string-ref| and |vector-ref| of R5RS and the
@@ -90,8 +90,8 @@
   (|len| /vector/).
 
 
-5. Prefer |len| where possible <new>
-  The |len| procedure should be the preferred way to access length of
+5. Prefer |length| where possible <act>
+  The |length| procedure should be the preferred way to access length of
   simple compound objects of any kind.  Accordingly, PAW-5 obsoletes
   |string-length| and |vector-length| of R5RS.  Furthermore, PAW-5
   obsoletes the |record-type-slot-count| procedure.

Index: wisp.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v
retrieving revision 1.229
retrieving revision 1.230
diff -u -d -r1.229 -r1.230
--- wisp.vim	18 Sep 2002 21:11:05 -0000	1.229
+++ wisp.vim	18 Sep 2002 21:15:12 -0000	1.230
@@ -114,6 +114,12 @@
 syn keyword wispSyntax string-template sub swap! syntax-rules try type
 syn keyword wispSyntax unless unquote use when while
 
+" FIXME: I don't really think types should be lumped together with
+" syntax ...
+
+syn keyword wispSyntax <box> <c16string> <macro> <record-type>
+syn keyword wispSyntax <u8vector> <vector>
+
 syn keyword wispFunc * + - / /= < << <= = > >= >> abs address-of
 syn keyword wispFunc alist->dict alist->vector alist-copy analyse angle
 syn keyword wispFunc append append-reverse apply assert-object-type
@@ -208,7 +214,7 @@
 syn keyword wispFunc system-constant tcchangeattr tcgetattr
 syn keyword wispFunc tcgetattr-raw tcsetattr-raw tenth third toposplit
 syn keyword wispFunc transcript-off transcript-on translate tree-copy
-syn keyword wispFunc truncate tty? type-of ubyte? unix-time
+syn keyword wispFunc truncate tty? type-of u8vector? ubyte? unix-time
 syn keyword wispFunc unpack-be-integer unpack-le-integer unsure-collect
 syn keyword wispFunc utf-8->c16string utf-8-first-byte->length uwyde?
 syn keyword wispFunc vector vector->list vector-append vector-copy

Index: worth.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- worth.vim	18 Sep 2002 21:14:22 -0000	1.23
+++ worth.vim	18 Sep 2002 21:15:12 -0000	1.24
@@ -21,7 +21,7 @@
 syn keyword wispSyntax ->reg ->ureg :> <: again begin believe binary
 syn keyword wispSyntax conform copy delete else flush if if-empty
 syn keyword wispSyntax if-int-const register repeat stack<=! stack=!
-syn keyword wispSyntax stack>=! then until while
+syn keyword wispSyntax stack>=! then unless until while
 
 syn keyword wispFunc * + - --byte@ --cell@ --tetra@ --wyde@ -2rot
 syn keyword wispFunc ->wisp-bool -rot / /mod 0= 1+ 1- 2* 2drop 2dup
@@ -29,11 +29,12 @@
 syn keyword wispFunc WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
 syn keyword wispFunc WSTOPSIG WTERMSIG abs and argc argc-argv-envp
 syn keyword wispFunc argv-envp arshift bsf bsr bury byte! byte@ byte@++
-syn keyword wispFunc cell! cell+ cell- cell@ cell@++ cellfill cellmove
-syn keyword wispFunc cells cr d+ d- d>s dhexprint dig drop dup emit
-syn keyword wispFunc emit-digit encode-digit fill get-type
-syn keyword wispFunc go-access-slot hexprint lshift m+ max min mod move
-syn keyword wispFunc negate nip not octas or over require-c8string
+syn keyword wispFunc bytefill bytemove cell! cell+ cell- cell@ cell@++
+syn keyword wispFunc cellfill cellmove cells cr d+ d- d>s decons
+syn keyword wispFunc dhexprint dig drop dup emit emit-digit
+syn keyword wispFunc encode-digit fill get-type go-access-slot hexprint
+syn keyword wispFunc lshift m+ max min mod move negate nip not octas or
+syn keyword wispFunc over require-c8string require-cons
 syn keyword wispFunc require-record-type require-string-length
 syn keyword wispFunc require-vector rol ror rot rshift s>d sp! sp@
 syn keyword wispFunc space square string-data string-length swap