lambdamusic
2/7/2013 - 9:28 PM

Scheme: scheme: check for optional arguments

Scheme: scheme: check for optional arguments

(define-macro (p r . otherstuff)
   `(if (null? (list ,@otherstuff))
        (print ,r)
        (print ,@otherstuff)))

(p 'c 'ciao)