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

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/03/04 12:46:34

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

Log message:
        * goops/compile.scm (compile-method): Tag method closure for body
        expansion.
        
        * goops.scm (change-object-class): Quote empty list constants.
        (method): Reverted previous change (enclosing body);
        Quote empty list.
        (initialize <method>): Supply `dummy-procedure' as default instead
        of creating a new closure.
        
        * goops/internal.scm: Re-export (oop goops) without copying
        bindings.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/oop/goops/compile.scm.diff?r1=1.1&r2=1.2
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/oop/goops/internal.scm.diff?r1=1.1&r2=1.2

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)))
        )))
Index: guile/guile-core/oop/goops/internal.scm
diff -u guile/guile-core/oop/goops/internal.scm:1.1 
guile/guile-core/oop/goops/internal.scm:1.2
--- guile/guile-core/oop/goops/internal.scm:1.1 Wed Oct 25 07:51:33 2000
+++ guile/guile-core/oop/goops/internal.scm     Sun Mar  4 12:46:34 2001
@@ -1,6 +1,6 @@
 ;;; installed-scm-file
 
-;;;;   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
@@ -22,7 +22,5 @@
 (define-module (oop goops internal)
   :use-module (oop goops))
 
-;; Export all bindings from (oop goops)
-(module-for-each (lambda (sym var)
-                  (module-add! %module-public-interface sym var))
-                (nested-ref the-root-module '(app modules oop goops)))
+(set-module-uses! %module-public-interface
+                 (list (nested-ref the-root-module '(app modules oop goops))))