[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.237,1.238 stdenv.wisp,1.359,1.360

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

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

Modified Files:
	dictbase.wisp stdenv.wisp 
Log Message:
Dropped |string-ref|.

Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.237
retrieving revision 1.238
diff -u -d -r1.237 -r1.238
--- dictbase.wisp	7 Sep 2002 21:53:10 -0000	1.237
+++ dictbase.wisp	7 Sep 2002 21:54:05 -0000	1.238
@@ -139,7 +139,6 @@
 (local string-fill! (asm NN_string_fill))
 (local string-length (asm NN_string_length))
 (local string-move! (asm NN_string_move))
-(local string-ref (asm NN_string_ref))
 (local string? (asm NN_string_huh))
 (local symbol? (asm NN_symbol_huh))
 (local sys:exit (asm NN_sys_exit))

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.359
retrieving revision 1.360
diff -u -d -r1.359 -r1.360
--- stdenv.wisp	4 Sep 2002 14:38:13 -0000	1.359
+++ stdenv.wisp	7 Sep 2002 21:54:05 -0000	1.360
@@ -82,16 +82,16 @@
              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-ref
-             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
+             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
              vector-move! vector-ref vector? void? wisp-string-hash