From 7c38399f307f9f21cf21a2170f2997b48dff5c94 Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Sun, 7 Jul 2002 05:18:17 +0000 Subject: [PATCH] * now using mmacros instead of macros at some places. --- ice-9/ChangeLog | 5 +++++ ice-9/boot-9.scm | 4 ++-- oop/ChangeLog | 4 ++++ oop/goops/save.scm | 4 ++-- 4 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index ae3084e87..32985e46c 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2002-07-07 Dirk Herrmann + + * boot-9.scm (define-option-interface): Replaced "macro" by + mmacro. + 2002-06-01 Gary Houston * boot-9.scm (file-set-position): Make third argument optional, diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index e51bf39bd..5fd5b638e 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. +;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 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 @@ -2024,7 +2024,7 @@ (list '(,'unquote name) (,'unquote exp)))) (,interface))))))) - (procedure->macro + (procedure->memoizing-macro (lambda (exp env) (cons 'begin (let* ((option-group (cadr exp)) diff --git a/oop/ChangeLog b/oop/ChangeLog index 5fc09eed1..df483c652 100644 --- a/oop/ChangeLog +++ b/oop/ChangeLog @@ -1,3 +1,7 @@ +2002-07-07 Dirk Herrmann + + * goops/save.scm (restore): Replaced "macro" by mmacro. + 2001-10-21 Mikael Djurfeldt * goops.scm, goops/active-slot.scm, goops/compile.scm, diff --git a/oop/goops/save.scm b/oop/goops/save.scm index 7db319e22..d3d9ed374 100644 --- a/oop/goops/save.scm +++ b/oop/goops/save.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. +;;;; Copyright (C) 2000,2001,2002 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 @@ -403,7 +403,7 @@ (slot-ref class 'getters-n-setters))) (define restore - (procedure->macro + (procedure->memoizing-macro (lambda (exp env) "(restore CLASS (SLOT-NAME1 ...) EXP1 ...)" `(let ((o (,%allocate-instance ,(cadr exp) '())))