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)
|
