mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* now using mmacros instead of macros at some places.

Browse source
This commit is contained in:
Dirk Herrmann 2002-07-07 05:18:17 +00:00
parent bd987b8eda
commit 7c38399f30
4 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2002-07-07 Dirk Herrmann <D.Herrmann@tu-bs.de>
* boot-9.scm (define-option-interface): Replaced "macro" by
mmacro.
2002-06-01 Gary Houston <ghouston@arglist.com>
* boot-9.scm (file-set-position): Make third argument optional,

4
ice-9/boot-9.scm
View file

@ -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))

4
oop/ChangeLog
View file

@ -1,3 +1,7 @@
2002-07-07 Dirk Herrmann <D.Herrmann@tu-bs.de>
* goops/save.scm (restore): Replaced "macro" by mmacro.
2001-10-21 Mikael Djurfeldt <mdj@linnaeus>
* goops.scm, goops/active-slot.scm, goops/compile.scm,

4
oop/goops/save.scm
View file

@ -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) '())))