[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/oop ChangeLog goops.scm
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/oop ChangeLog goops.scm |
Date: |
Sun, 04 Mar 2001 12:46:29 -0800 |
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))