[Wisp-cvs] wisp/src/builtin stdenv.wisp,1.361,1.362

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

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv6487/src/builtin

Modified Files:
	stdenv.wisp 
Log Message:
Dropped |string-length| and |vector-length| from the regular environment.

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.361
retrieving revision 1.362
diff -u -d -r1.361 -r1.362
--- stdenv.wisp	7 Sep 2002 21:55:58 -0000	1.361
+++ stdenv.wisp	7 Sep 2002 22:01:30 -0000	1.362
@@ -82,18 +82,17 @@
              string->integer string->list string->number string->symbol
              string-append string-concatenate string-copy
              string-downcase string-downcase! string-fill! string-join
-             string-length string-move! string-null? string-template
-             string-upcase string-upcase! string<=? string<? string=?
-             string>=? string>? string? structure->string sub subclass?
-             substring superclass swap! swyde? symbol->string
-             symbol-length symbol-ref symbol<=? symbol<? symbol>=?
-             symbol>? symbol? system-constant tcchangeattr tcgetattr
-             tcgetattr-raw tcsetattr-raw tenth third toposplit
-             translate tree-copy truncate try tty? type type-of ubyte?
-             unix-time unpack-be-integer unpack-le-integer
-             unsure-collect use utf-8->c16string
-             utf-8-first-byte->length uwyde? vector vector->list
-             vector-append vector-copy vector-fill! vector-length
+             string-move! string-null? string-template string-upcase
+             string-upcase! string<=? string<? string=? string>=?
+             string>? string? structure->string sub subclass? substring
+             superclass swap! swyde? symbol->string symbol-length
+             symbol-ref symbol<=? symbol<? symbol>=? symbol>? symbol?
+             system-constant tcchangeattr tcgetattr tcgetattr-raw
+             tcsetattr-raw tenth third toposplit translate tree-copy
+             truncate try tty? type type-of ubyte? unix-time
+             unpack-be-integer unpack-le-integer unsure-collect use
+             utf-8->c16string utf-8-first-byte->length uwyde? vector
+             vector->list vector-append vector-copy vector-fill!
              vector-move! vector? void? wisp-string-hash write
              write-char write-string writeln zero?)))))
    ((*origin obj) ; => (original-name source-data ...) | #f