Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv26135/src/builtin
Modified Files:
objects.wisp
Log Message:
Dropped the obsolete |hide-slots| procedure.
Index: objects.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/objects.wisp,v
retrieving revision 1.159
retrieving revision 1.160
diff -u -d -r1.159 -r1.160
--- objects.wisp 18 Sep 2002 20:56:19 -0000 1.159
+++ objects.wisp 18 Sep 2002 20:56:51 -0000 1.160
@@ -43,14 +43,6 @@
sl))
(friend (class->vector c)
(vector-copy slots))
- (friend (hide-slots c sl)
- (if frozen?
- (raise 'frozen c))
- (for-each
- (lambda (x)
- (set! slots[(or (lookup-slot c x)
- (raise 'unknown x))] #f))
- sl))
(friend (make-instance c)
(my in (valloc (asm slots (l . 1) mat (tn . 2) addat mta))
(asm (in . c) pt (s . 1) (tn . 10) s0)
|
