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

undid broken commit

Browse Source 
svn: r15915
This commit is contained in:
Robby Findler 2009-09-08 13:30:52 +00:00
parent 910e721a89
commit 49c447fe11
1 changed files with 10 additions and 11 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,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))