mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* goops.scm (method): Construct a new copy of the constant '('())

Browse source 
for every macro invocation.
This commit is contained in:
Mikael Djurfeldt 2003-01-18 19:07:38 +00:00
parent 80f225df0e
commit 27b32aad49
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
oop/ChangeLog
View file

@ -1,3 +1,8 @@
2003-01-18 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* goops.scm (method): Construct a new copy of the constant '('())
for every macro invocation.
2003-01-08 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* goops.scm (upgrade-generic-with-setter,

2
oop/goops.scm
View file

@ -569,7 +569,7 @@
(define method
(letrec ((specializers
(lambda (ls)
(cond ((null? ls) '('()))
(cond ((null? ls) (list (list 'quote '())))
((pair? ls) (cons (if (pair? (car ls))
(cadar ls)
'<top>)