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

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

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

Modified Files:
	objects.wisp 
Log Message:
Dropped the obsolete |protect-slots| procedure.

Index: objects.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/objects.wisp,v
retrieving revision 1.158
retrieving revision 1.159
diff -u -d -r1.158 -r1.159
--- objects.wisp	7 Sep 2002 21:59:27 -0000	1.158
+++ objects.wisp	18 Sep 2002 20:56:19 -0000	1.159
@@ -51,14 +51,6 @@
         (set! slots[(or (lookup-slot c x)
                         (raise 'unknown x))] #f))
       sl))
-  (friend (protect-slots c sl)
-    (if frozen?
-      (raise 'frozen c))
-    (for-each
-      (lambda (x)
-        (set! (cadr 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)