mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +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

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