object: rename

1 files changed, 10 insertions, 6 deletions

diff --git a/object.scm b/object.scm
index d30574d..6728661 100644
--- a/object.scm
+++ b/object.scm
@@ -41,6 +41,7 @@
                  (if (not proc)
                      (error 'object 'invalid-op op args)
                      (apply proc args))))))
+
         (lambda (op . args)
           (let ((proc (table 'get op)))
             (if (not proc)
@@ -64,11 +65,14 @@
                       (apply process-args args)))))
         (apply check-args args)))))
 
+(define object-make-abstract!
+  (lambda (obj)
+    (obj 'delete! 'set!)
+    (obj 'delete! 'get)
+    (obj 'delete! 'delete!)
+    obj))
+
 ;;; Like OBJECT/ATTRIBUTES, but with SET!, GET, and DELETE! removed.
-(define object/immutable-attributes
+(define object/abstract
   (lambda args
-    (let ((obj (apply object/attributes args)))
-      (obj 'delete! 'set!)
-      (obj 'delete! 'get)
-      (obj 'delete! 'delete!)
-      obj)))
+    (object-make-abstract! (apply object/attributes args))))