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

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Branch:         mvo-vcell-cleanup-1-branch
Changes by:     Marius Vollmer <address@hidden> 01/05/09 17:49:48

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

Log message:
        (compile-method): Insert comment that
        `procedure-source' can not be guaranteed to be reliable or
        efficient.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/oop/goops/compile.scm.diff?cvsroot=OldCVS&only_with_tag=mvo-vcell-cleanup-1-branch&tr1=1.2&tr2=1.2.2.1&r1=text&r2=text

Patches:
Index: guile/guile-core/oop/goops/compile.scm
diff -u guile/guile-core/oop/goops/compile.scm:1.1 
guile/guile-core/oop/goops/compile.scm:1.2
--- guile/guile-core/oop/goops/compile.scm:1.1  Wed Oct 25 07:51:33 2000
+++ guile/guile-core/oop/goops/compile.scm      Sun Mar  4 12:46:34 2001
@@ -1,4 +1,4 @@
-;;;;   Copyright (C) 1999 Free Software Foundation, Inc.
+;;;;   Copyright (C) 1999, 2001 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -109,6 +109,9 @@
 ;;; NOTE: This section is far from finished.  It will finally be
 ;;; implemented on C level.
 
+(define %tag-body
+  (nested-ref the-root-module '(app modules oop goops %tag-body)))
+
 (define (compile-method methods types)
   (let* ((proc (method-procedure (car methods)))
         (src (procedure-source proc))
@@ -132,5 +135,5 @@
              ,@body)))
        (cons (procedure-environment proc)
              (cons formals
-                   body))
+                   (%tag-body body)))
        )))