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