guile-cvs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]