[Wisp-cvs] wisp/src/builtin objects.wisp,1.159,1.160

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

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)