guile/guile-core/oop/goops compile.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/15 07:58:22

Modified files:
        guile-core/oop/goops: compile.scm 

Log message:
        Merged from mvo-vcell-cleanup-1-branch.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/oop/goops/compile.scm.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text

Patches:
Index: guile/guile-core/oop/goops/compile.scm
diff -u guile/guile-core/oop/goops/compile.scm:1.2 
guile/guile-core/oop/goops/compile.scm:1.3
--- guile/guile-core/oop/goops/compile.scm:1.2  Sun Mar  4 12:46:34 2001
+++ guile/guile-core/oop/goops/compile.scm      Tue May 15 07:58:22 2001
@@ -114,7 +114,9 @@
 
 (define (compile-method methods types)
   (let* ((proc (method-procedure (car methods)))
-        (src (procedure-source proc))
+        ;; XXX - procedure-source can not be guaranteed to be
+        ;;       reliable or efficient
+        (src (procedure-source proc)) 
         (formals (source-formals src))
         (body (source-body src)))
     (if (next-method? body)