[Wisp-cvs] wisp/src/builtin objects.wisp,1.160,1.161 stdenv.wisp,1.362,1.363

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

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

Modified Files:
	objects.wisp stdenv.wisp 
Log Message:
Dropped the obsolete |freeze-class| procedure.

Index: objects.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/objects.wisp,v
retrieving revision 1.160
retrieving revision 1.161
diff -u -d -r1.160 -r1.161
--- objects.wisp	18 Sep 2002 20:56:51 -0000	1.160
+++ objects.wisp	18 Sep 2002 20:57:26 -0000	1.161
@@ -11,13 +11,7 @@
 (define-class <class> ; aka BCL0
   (read-only
     superclass)
-  (hidden
-    slots
-    obsolete-initial) ; FIXME: this slot is obsolete
-  (read-only
-    frozen?)
-  (friend (freeze-class c)
-    (set! frozen? #t))
+  (hidden slots)
   (friend (superclass c)
     superclass)
   (friend (lookup-slot c s)

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.362
retrieving revision 1.363
diff -u -d -r1.362 -r1.363
--- stdenv.wisp	7 Sep 2002 22:01:30 -0000	1.362
+++ stdenv.wisp	18 Sep 2002 20:57:26 -0000	1.363
@@ -52,19 +52,19 @@
              file-stat file-type file? filter find find-tail first
              fit-for-symbol? fit-for-variable-name? fixnum? flatten
              floor for-all-env-vars for-dir-entries for-each fourth
-             fraction? freeze-class frer->structure hache hide* incr!
-             init-port input-port? instance? integer->char
-             integer->string integer? intermingle keyword? lambda-pack
-             last-cons length let let* letrec list list->semideque
-             list->vector list-copy list-ref list? load lookup-slot
-             macro->procedure macro? make-box make-c16string
-             make-c8string make-class make-counter make-dict
-             make-instance make-record-type make-string make-vector map
-             meaning member memq memv metacode modify-bit module
-             module-ref modulo my-port native? negative? newline ninth
-             not null-list? null? number->string number? numerator
-             nybble? nyp? odd? open-input-file open-output-file opt or
-             order->dict output-port? pack-be-integer pack-le-integer
+             fraction? frer->structure hache hide* incr! init-port
+             input-port? instance? integer->char integer->string
+             integer? intermingle keyword? lambda-pack last-cons length
+             let let* letrec list list->semideque list->vector
+             list-copy list-ref list? load lookup-slot macro->procedure
+             macro? make-box make-c16string make-c8string make-class
+             make-counter make-dict make-instance make-record-type
+             make-string make-vector map meaning member memq memv
+             metacode modify-bit module module-ref modulo my-port
+             native? negative? newline ninth not null-list? null?
+             number->string number? numerator nybble? nyp? odd?
+             open-input-file open-output-file opt or order->dict
+             output-port? pack-be-integer pack-le-integer
              parse-character-body parse-lambda-list peek-char
              peek-string pick-dict-items port? portio-debugging
              positive? prep preprocess print procedure->macro