suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed order of evaluation to improve error message

Browse Source 
svn: r15914
This commit is contained in:
Robby Findler 2009-09-08 13:18:19 +00:00
parent 571eb2884a
commit 910e721a89
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/scribble/private/manual-proc.ss
View File

@ -118,16 +118,17 @@
[(_ [[proto result] ...] desc ...) [(_ [[proto result] ...] desc ...)
(defproc* #:mode procedure #:within #f [[proto result] ...] desc ...)] (defproc* #:mode procedure #:within #f [[proto result] ...] desc ...)]
[(_ #:mode m #:within cl [[proto result] ...] desc ...) [(_ #:mode m #:within cl [[proto result] ...] desc ...)
(with-togetherable-scheme-variables (let ([arg-contracts (list (arg-contracts proto) ...)])
() (with-togetherable-scheme-variables
([proc proto] ...) ()
(*defproc 'm (quote-syntax/loc cl) ([proc proto] ...)
(list (extract-proc-id proto) ...) (*defproc 'm (quote-syntax/loc cl)
'[proto ...] (list (extract-proc-id proto) ...)
(list (arg-contracts proto) ...) '[proto ...]
(list (arg-defaults proto) ...) arg-contracts
(list (lambda () (result-contract result)) ...) (list (arg-defaults proto) ...)
(lambda () (list desc ...))))])) (list (lambda () (result-contract result)) ...)
(lambda () (list desc ...)))))]))
(define-struct arg (define-struct arg
(special? kw id optional? starts-optional? ends-optional? num-closers)) (special? kw id optional? starts-optional? ends-optional? num-closers))