From 0490e6d2047aa97be3a0b3e34075557666336679 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 10 Feb 2009 00:06:38 +0100 Subject: Better args reporting for macros. --- scheme/geiser/introspection.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'scheme') diff --git a/scheme/geiser/introspection.scm b/scheme/geiser/introspection.scm index ffa2c73..ae2b0d3 100644 --- a/scheme/geiser/introspection.scm +++ b/scheme/geiser/introspection.scm @@ -57,8 +57,12 @@ (and opt 'rest)))) (define (macro-args macro) - (format-args '(...) #f)) + (let ((prog (macro-transformer macro))) + (if prog + (program-args prog) + (format-args '(...) #f)))) +(define (foobar) 6) (define (format-args args opt) (list (cons 'required args) (cons 'optional (or opt '())))) -- cgit v1.2.3