mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-03 02:36:19 +02:00
Code Activity

(initialize-object-procedure): Use

Browse source 
`valid-object-procedure?' instead of explicit tag magic.
(object-procedure-tags): Removed.
This commit is contained in:
Marius Vollmer 2001-05-05 19:08:32 +00:00
parent cec0d28c56
commit a524a03f87
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
oop/goops.scm
View file

@ -1281,15 +1281,12 @@
;; Set the layout slot ;; Set the layout slot
(%prep-layout! class))) (%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) (define (initialize-object-procedure object initargs)
(let ((proc (get-keyword #:procedure initargs #f))) (let ((proc (get-keyword #:procedure initargs #f)))
(cond ((not proc)) (cond ((not proc))
((pair? proc) ((pair? proc)
(apply set-object-procedure! object proc)) (apply set-object-procedure! object proc))
((memq (tag proc) object-procedure-tags) ((valid-object-procedure? proc)
(set-object-procedure! object proc)) (set-object-procedure! object proc))
(else (else
(set-object-procedure! object (set-object-procedure! object