mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +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> 2003-01-08 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* goops.scm (upgrade-generic-with-setter, * goops.scm (upgrade-generic-with-setter,

2
oop/goops.scm
View file

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