[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.248,1.249 stdenv.wisp,1.364,1.365

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

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

Modified Files:
	dictbase.wisp stdenv.wisp 
Log Message:
Dropped |record-type-referrer|.

Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.248
retrieving revision 1.249
diff -u -d -r1.248 -r1.249
--- dictbase.wisp	18 Sep 2002 21:01:03 -0000	1.248
+++ dictbase.wisp	18 Sep 2002 21:03:53 -0000	1.249
@@ -124,7 +124,6 @@
 (local raise (asm NN_raise))
 (local rational->cons (asm NN_rat2cons))
 (local record-type-discriminator (asm NN_record_type_discriminator))
-(local record-type-referrer (asm NN_record_type_referrer))
 (local record-type-slot-count (asm NN_record_type_slot_count))
 (local record-type? (asm NN_record_type_huh))
 (local ref (asm NN_ref))

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.364
retrieving revision 1.365
diff -u -d -r1.364 -r1.365
--- stdenv.wisp	18 Sep 2002 20:59:21 -0000	1.364
+++ stdenv.wisp	18 Sep 2002 21:03:54 -0000	1.365
@@ -72,29 +72,29 @@
              rational->cons rational? read read-all=> read-char
              read-char-sequence read-character-body read-directory
              read-line read-string read-whole-file real? rec
-             record-type-discriminator record-type-referrer
-             record-type-slot-count record-type? reduce-index ref
-             remainder reverse round run-ewisp-file sbyte? second seek
-             semideque semideque->list semideque-bottom
-             semideque-insert! semideque-pop! semideque-push!
-             semideque-top serial seventh signal sixth slice
-             split-by-char string string->c16string string->c8string
-             string->integer string->list string->number string->symbol
-             string-append string-concatenate string-copy
-             string-downcase string-downcase! string-fill! string-join
-             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?)))))
+             record-type-discriminator record-type-slot-count
+             record-type? reduce-index ref remainder reverse round
+             run-ewisp-file sbyte? second seek semideque
+             semideque->list semideque-bottom semideque-insert!
+             semideque-pop! semideque-push! semideque-top serial
+             seventh signal sixth slice split-by-char string
+             string->c16string string->c8string string->integer
+             string->list string->number string->symbol string-append
+             string-concatenate string-copy string-downcase
+             string-downcase! string-fill! string-join 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
      (cond
        ; check for the regular environment