* goops.scm (method): rename list* to cons*.
This commit is contained in:
parent
0b7edf57e8
commit
d3299bc330
1 changed files with 1 additions and 1 deletions
|
|
@ -498,7 +498,7 @@
|
|||
(let ((args (cadr exp))
|
||||
(body (cddr exp)))
|
||||
`(make <method>
|
||||
#:specializers (list* ,@(specializers args))
|
||||
#:specializers (cons* ,@(specializers args))
|
||||
#:procedure (lambda ,(formals args)
|
||||
,@(if (null? body)
|
||||
(list *unspecified*)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue