[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/oop goops.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/oop goops.scm |
Date: |
Sat, 05 May 2001 12:08:32 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/05/05 12:08:32
Modified files:
guile-core/oop : goops.scm
Log message:
(initialize-object-procedure): Use
`valid-object-procedure?' instead of explicit tag magic.
(object-procedure-tags): Removed.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/oop/goops.scm.diff?cvsroot=OldCVS&tr1=1.8&tr2=1.9&r1=text&r2=text
Patches:
Index: guile/guile-core/oop/goops.scm
diff -u guile/guile-core/oop/goops.scm:1.8 guile/guile-core/oop/goops.scm:1.9
--- guile/guile-core/oop/goops.scm:1.8 Sat Apr 28 10:18:06 2001
+++ guile/guile-core/oop/goops.scm Sat May 5 12:08:32 2001
@@ -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
- guile/guile-core/oop goops.scm,
Marius Vollmer <=