commit c12113ef8140b3004b5b89dadddfc196f8d950e6 parent f0ff88e2e5fd14e7ea3bf2fe7ac4efa3500d3998 Author: Robby Findler <robby@racket-lang.org> Date: Tue, 8 Sep 2009 13:18:19 +0000 changed order of evaluation to improve error message svn: r15914 original commit: 910e721a89b7efd261035aff646e620ec5eb7412 Diffstat:
| M | collects/scribble/private/manual-proc.ss | | | 21 | +++++++++++---------- |
1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/collects/scribble/private/manual-proc.ss b/collects/scribble/private/manual-proc.ss @@ -118,16 +118,17 @@ [(_ [[proto result] ...] desc ...) (defproc* #:mode procedure #:within #f [[proto result] ...] desc ...)] [(_ #:mode m #:within cl [[proto result] ...] 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 ...))))])) + (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 ...)))))])) (define-struct arg (special? kw id optional? starts-optional? ends-optional? num-closers))