guile/guile-core/oop ChangeLog goops.scm

[Mikael Djurfeldt]

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

Modified files:
        guile-core/oop : ChangeLog goops.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/ChangeLog.diff?r1=1.6&r2=1.7
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/oop/goops.scm.diff?r1=1.5&r2=1.6

Patches:
Index: guile/guile-core/oop/ChangeLog
diff -u guile/guile-core/oop/ChangeLog:1.6 guile/guile-core/oop/ChangeLog:1.7
--- guile/guile-core/oop/ChangeLog:1.6  Sat Mar  3 21:28:21 2001
+++ guile/guile-core/oop/ChangeLog      Sun Mar  4 12:46:29 2001
@@ -1,10 +1,17 @@
 2001-03-04  Mikael Djurfeldt  <address@hidden>
 
+       * 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>): Pre-expand the method closure.
+       (initialize <method>): Supply `dummy-procedure' as default instead
+       of creating a new closure.
        
+       * goops/internal.scm: Re-export (oop goops) without copying
+       bindings.
+
 2001-02-23  Keisuke Nishida  <address@hidden>
 
        * goops.scm (method): Enclosed BODY by `(let () ...)'.
Index: guile/guile-core/oop/goops.scm
diff -u guile/guile-core/oop/goops.scm:1.5 guile/guile-core/oop/goops.scm:1.6
--- guile/guile-core/oop/goops.scm:1.5  Sat Mar  3 21:28:21 2001
+++ guile/guile-core/oop/goops.scm      Sun Mar  4 12:46:29 2001
@@ -1314,14 +1314,14 @@
        (set-procedure-property! generic 'name name))
     ))
 
+(define dummy-procedure (lambda args *unspecified*))
+
 (define-method initialize ((method <method>) initargs)
   (next-method)
   (slot-set! method 'generic-function (get-keyword #:generic-function initargs 
#f))
   (slot-set! method 'specializers (get-keyword #:specializers initargs '()))
-  (slot-set! method
-            'procedure
-            (%pre-expand-closure!
-             (get-keyword #:procedure initargs (lambda l '()))))
+  (slot-set! method 'procedure
+            (get-keyword #:procedure initargs dummy-procedure))
   (slot-set! method 'code-table '()))
 
 (define-method initialize ((obj <foreign-object>) initargs))