[Wisp-cvs] wisp/doc wisp.vim,1.228,1.229

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

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

Modified Files:
	wisp.vim 
Log Message:
Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|.

Index: wisp.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v
retrieving revision 1.228
retrieving revision 1.229
diff -u -d -r1.228 -r1.229
--- wisp.vim	18 Sep 2002 21:08:50 -0000	1.228
+++ wisp.vim	18 Sep 2002 21:11:05 -0000	1.229
@@ -21,7 +21,7 @@
 set lispwords+=,except,finally,fluid-my,if,hide,hold,intermingle,lambda
 set lispwords+=,let,let*,letrec,make-record-type,my,my-port,phase
 set lispwords+=,read-char-sequence,run-tests,set!,simple-encode,try,use
-set lispwords+=,while
+set lispwords+=,while,with-errors-to,with-input-from,with-output-to
 
 " Fascist highlighting: everything that doesn't fit the rules is an error...
 
@@ -150,32 +150,33 @@
 syn keyword wispFunc close-output-port close-port collect
 syn keyword wispFunc collect-string compile complex? concatenate cons
 syn keyword wispFunc cons* cons-copy cons? construct-filename
-syn keyword wispFunc denominator destar desv desv+r dict->alist
-syn keyword wispFunc dict-bind! dict-copy dict-defined? dict-drop!
-syn keyword wispFunc dict-fetch dict-ref dict-set! dict? documentation
-syn keyword wispFunc drop duplicate-dict-item! dwim-stringify eighth
-syn keyword wispFunc env-ref eof-object? eq? equal? eqv? eval even?
-syn keyword wispFunc evmfunc? exact->inexact exact? exit fifth
-syn keyword wispFunc file-ctime file-descriptor file-mtime file-stat
-syn keyword wispFunc file-type file? filter find find-tail first
-syn keyword wispFunc fit-for-symbol? fit-for-variable-name? fixnum?
-syn keyword wispFunc flatten floor for-all-env-vars for-dir-entries
-syn keyword wispFunc for-each fourth fraction? frer->structure gcd
-syn keyword wispFunc hache imag-part inexact->exact inexact? init-port
-syn keyword wispFunc input-port? instance? integer->char
-syn keyword wispFunc integer->string integer? interaction-environment
-syn keyword wispFunc intermingle invoke-gc keyword? last-cons lcm
-syn keyword wispFunc length list list->semideque list->vector list-copy
-syn keyword wispFunc list-ref list-tail list? load log lookup-slot
-syn keyword wispFunc macro->procedure macro? magnitude make-box
-syn keyword wispFunc make-c16string make-c8string make-class
-syn keyword wispFunc make-counter make-dict make-instance make-polar
-syn keyword wispFunc make-record-type make-rectangular make-string
-syn keyword wispFunc make-vector map max meaning member memq memv min
-syn keyword wispFunc modify-bit module-macro-ref module-ref modulo
-syn keyword wispFunc native? negative? new newline ninth nop not
-syn keyword wispFunc null-environment null-list? null? number->string
-syn keyword wispFunc number? numerator nybble? nyp? odd?
+syn keyword wispFunc current-errors-port current-input-port
+syn keyword wispFunc current-output-port denominator destar desv desv+r
+syn keyword wispFunc dict->alist dict-bind! dict-copy dict-defined?
+syn keyword wispFunc dict-drop! dict-fetch dict-ref dict-set! dict?
+syn keyword wispFunc documentation drop duplicate-dict-item!
+syn keyword wispFunc dwim-stringify eighth env-ref eof-object? eq?
+syn keyword wispFunc equal? eqv? eval even? evmfunc? exact->inexact
+syn keyword wispFunc exact? exit fifth file-ctime file-descriptor
+syn keyword wispFunc file-mtime file-stat file-type file? filter find
+syn keyword wispFunc find-tail first fit-for-symbol?
+syn keyword wispFunc fit-for-variable-name? fixnum? flatten floor
+syn keyword wispFunc for-all-env-vars for-dir-entries for-each fourth
+syn keyword wispFunc fraction? frer->structure gcd hache imag-part
+syn keyword wispFunc inexact->exact inexact? init-port input-port?
+syn keyword wispFunc instance? integer->char integer->string integer?
+syn keyword wispFunc interaction-environment intermingle invoke-gc
+syn keyword wispFunc keyword? last-cons lcm length list list->semideque
+syn keyword wispFunc list->vector list-copy list-ref list-tail list?
+syn keyword wispFunc load log lookup-slot macro->procedure macro?
+syn keyword wispFunc magnitude make-box make-c16string make-c8string
+syn keyword wispFunc make-class make-counter make-dict make-instance
+syn keyword wispFunc make-polar make-record-type make-rectangular
+syn keyword wispFunc make-string make-vector map max meaning member
+syn keyword wispFunc memq memv min modify-bit module-macro-ref
+syn keyword wispFunc module-ref modulo native? negative? new newline
+syn keyword wispFunc ninth nop not null-environment null-list? null?
+syn keyword wispFunc number->string number? numerator nybble? nyp? odd?
 syn keyword wispFunc open-input-file open-output-file order->dict
 syn keyword wispFunc output-port? pack-be-integer pack-le-integer
 syn keyword wispFunc parse-character-body parse-lambda-list peek-char
@@ -212,7 +213,8 @@
 syn keyword wispFunc utf-8->c16string utf-8-first-byte->length uwyde?
 syn keyword wispFunc vector vector->list vector-append vector-copy
 syn keyword wispFunc vector-fill! vector-move! vector? void?
-syn keyword wispFunc wisp-string-hash with-input-from-file
+syn keyword wispFunc wisp-string-hash with-errors-to with-input-from
+syn keyword wispFunc with-input-from-file with-output-to
 syn keyword wispFunc with-output-to-file write write-char write-string
 syn keyword wispFunc writeln zero?