From a524a03f87f5e243e072b7ad1d02b29ffae1b8da Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 5 May 2001 19:08:32 +0000 Subject: [PATCH] (initialize-object-procedure): Use `valid-object-procedure?' instead of explicit tag magic. (object-procedure-tags): Removed. --- oop/goops.scm | 5 +---- 1 file changed, 1 insertion(+), 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