summaryrefslogtreecommitdiff
path: root/oop/goops.scm
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-05-05 19:08:32 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-05-05 19:08:32 +0000
commita524a03f87f5e243e072b7ad1d02b29ffae1b8da (patch)
treed7b2117996d094226188c3576cbe8e3406cbb91f /oop/goops.scm
parentcec0d28c565f2a311e89d1657087a84b9f8d80da (diff)
downloadguile-a524a03f87f5e243e072b7ad1d02b29ffae1b8da.tar.gz
(initialize-object-procedure): Use
`valid-object-procedure?' instead of explicit tag magic. (object-procedure-tags): Removed.
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