summaryrefslogtreecommitdiff
path: root/geiser/introspection.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-11 12:45:22 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-11 12:45:22 +0100
commit475fab304e55e50b159b26ac4cf68a66cfceb5ff (patch)
tree96ac317c1c4dba7f49d9686d725c4c9fcecba47f /geiser/introspection.scm
parent3fa6b3439221e14881d17fe6b1f3b280a7da2862 (diff)
downloadgeiser-guile-475fab304e55e50b159b26ac4cf68a66cfceb5ff.tar.gz
geiser-guile-475fab304e55e50b159b26ac4cf68a66cfceb5ff.tar.bz2
README stuff.
Diffstat (limited to 'geiser/introspection.scm')
-rw-r--r--geiser/introspection.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/geiser/introspection.scm b/geiser/introspection.scm
index 4565464..eb5dc6c 100644
--- a/geiser/introspection.scm
+++ b/geiser/introspection.scm
@@ -61,6 +61,7 @@
(and (not (null? env)) env))))
(define (macro-args macro)
+ ;; check if return value is a procedure
(let ((prog (macro-transformer macro)))
(if prog
(program-args prog)