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
|
