commit 60dd2c85c7cd01e844470ce5b103eb8edeb0b695 parent c12113ef8140b3004b5b89dadddfc196f8d950e6 Author: Robby Findler <robby@racket-lang.org> Date: Tue, 8 Sep 2009 13:30:52 +0000 undid broken commit svn: r15915 original commit: 49c447fe11cc922d8c1558416b19118bc52f63f5 Diffstat:
| M | collects/scribble/private/manual-proc.ss | | | 21 | ++++++++++----------- |
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/collects/scribble/private/manual-proc.ss b/collects/scribble/private/manual-proc.ss @@ -118,17 +118,16 @@ [(_ [[proto result] ...] desc ...) (defproc* #:mode procedure #:within #f [[proto result] ...] desc ...)] [(_ #:mode m #:within cl [[proto result] ...] desc ...) - (let ([arg-contracts (list (arg-contracts proto) ...)]) - (with-togetherable-scheme-variables - () - ([proc proto] ...) - (*defproc 'm (quote-syntax/loc cl) - (list (extract-proc-id proto) ...) - '[proto ...] - arg-contracts - (list (arg-defaults proto) ...) - (list (lambda () (result-contract result)) ...) - (lambda () (list desc ...)))))])) + (with-togetherable-scheme-variables + () + ([proc proto] ...) + (*defproc 'm (quote-syntax/loc cl) + (list (extract-proc-id proto) ...) + '[proto ...] + (list (arg-contracts proto) ...) + (list (arg-defaults proto) ...) + (list (lambda () (result-contract result)) ...) + (lambda () (list desc ...))))])) (define-struct arg (special? kw id optional? starts-optional? ends-optional? num-closers))