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

method is a defmacro.

Browse source 
* oop/goops.scm (method): Make into a defmacro.
This commit is contained in:
Andy Wingo 2008-10-23 15:00:19 +02:00
parent 56f952c682
commit 02e720ff76
1 changed files with 7 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

18
oop/goops.scm
View file

@ -467,7 +467,7 @@
#:specializers specializers
#:procedure procedure))
(define method
(define-macro (method args . body)
(letrec ((specializers
(lambda (ls)
(cond ((null? ls) (list (list 'quote '())))
@ -482,16 +482,12 @@
(cons (if (pair? (car ls)) (caar ls) (car ls))
(formals (cdr ls)))
ls))))
(procedure->memoizing-macro
(lambda (exp env)
(let ((args (cadr exp))
(body (cddr exp)))
`(make <method>
#:specializers (cons* ,@(specializers args))
#:procedure (lambda ,(formals args)
,@(if (null? body)
(list *unspecified*)
body))))))))
`(make <method>
#:specializers (cons* ,@(specializers args))
#:procedure (lambda ,(formals args)
,@(if (null? body)
(list *unspecified*)
body)))))
;;;
;;; {add-method!}