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

fixed example for unstable/wrapc

Browse Source
This commit is contained in:
Ryan Culpepper 2010-09-05 02:16:06 -06:00
parent cf47297a07
commit 0bdb302409
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/unstable/scribblings/wrapc.scrbl
View File

@ -95,7 +95,7 @@ contract wrapping.
[(_ ((p v)) body)
(with-syntax ([cp (wrap-expr/c
#'parameter? #'p
#:expr-name "the parameter argument"
#:name "the parameter argument"
#:context stx)])
#'(parameterize ((cp v)) body))]))
(myparameterize1 ((current-input-port
@ -112,7 +112,7 @@ contract wrapping.
(with-syntax ([cf (wrap-expr/c
#'(-> number? number?)
#'f
#:expr-name "the function argument"
#:name "the function argument"
#:context stx)])
#'(cf arg))]))
(provide app))