summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-07 22:55:45 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-07 22:55:45 +0200
commit9127a121c76f5d5606bca9a668bda5509ec3b830 (patch)
tree9e89f7afca00dc57eb3c12957423fc906d58b016 /scheme
parent6fa9ca6e3372eddbb0c5a34e477db9447f87b22a (diff)
downloadgeiser-guile-9127a121c76f5d5606bca9a668bda5509ec3b830.tar.gz
geiser-guile-9127a121c76f5d5606bca9a668bda5509ec3b830.tar.bz2
PLT autodoc: define-for-syntax.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/plt/geiser/autodoc.ss4
1 files changed, 4 insertions, 0 deletions
diff --git a/scheme/plt/geiser/autodoc.ss b/scheme/plt/geiser/autodoc.ss
index 423f52e..a78f5f1 100644
--- a/scheme/plt/geiser/autodoc.ss
+++ b/scheme/plt/geiser/autodoc.ss
@@ -95,6 +95,10 @@
(add-signature! name formals store))
((list 'define name (list 'lambda formals body ...))
(add-signature! name formals store))
+ ((list 'define-for-syntax (list name formals ...) body ...)
+ (add-signature! name formals store))
+ ((list 'define-for-syntax name (list 'lambda formals body ...))
+ (add-signature! name formals store))
((list 'define-syntax-rule (list name formals ...) body ...)
(add-signature! name formals store))
(_ void)))