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
|
