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
|
