[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.249,1.250 stdenv.wisp,1.365,1.366 tostring.wisp,1.79,1.80

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

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

Modified Files:
	dictbase.wisp stdenv.wisp tostring.wisp 
Log Message:
Dropped |record-type-slot-count|.

Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.249
retrieving revision 1.250
diff -u -d -r1.249 -r1.250
--- dictbase.wisp	18 Sep 2002 21:03:53 -0000	1.249
+++ dictbase.wisp	18 Sep 2002 21:06:31 -0000	1.250
@@ -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-slot-count (asm NN_record_type_slot_count))
 (local record-type? (asm NN_record_type_huh))
 (local ref (asm NN_ref))
 (local remainder (asm NN_remainder))

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.365
retrieving revision 1.366
diff -u -d -r1.365 -r1.366
--- stdenv.wisp	18 Sep 2002 21:03:54 -0000	1.365
+++ stdenv.wisp	18 Sep 2002 21:06:31 -0000	1.366
@@ -72,29 +72,28 @@
              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-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? 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

Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -d -r1.79 -r1.80
--- tostring.wisp	11 Sep 2002 17:36:06 -0000	1.79
+++ tostring.wisp	18 Sep 2002 21:06:31 -0000	1.80
@@ -251,7 +251,7 @@
                       (begin
                         (emit (stringify-address s))
                         (emit ", slot count ")
-                        (emit (integer->string (record-type-slot-count s))))))
+                        (emit (integer->string (length s))))))
                   (emit #\>))
                 ((box? s)
                   (if (not (check-duplicity s))