summaryrefslogtreecommitdiff
path: root/oop/goops.scm
diff options
context:
space:
mode:
Diffstat (limited to 'oop/goops.scm')
-rw-r--r--oop/goops.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/oop/goops.scm b/oop/goops.scm
index 9c18cf693..7cf7c7b64 100644
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -1281,15 +1281,12 @@
;; Set the layout slot
(%prep-layout! class)))
-(define object-procedure-tags
- '(utag_closure utag_subr_1 utag_subr_2 utag_subr3 utag_lsubr_2))
-
(define (initialize-object-procedure object initargs)
(let ((proc (get-keyword #:procedure initargs #f)))
(cond ((not proc))
((pair? proc)
(apply set-object-procedure! object proc))
- ((memq (tag proc) object-procedure-tags)
+ ((valid-object-procedure? proc)
(set-object-procedure! object proc))
(else
(set-object-procedure! object