From 0bdb302409bbe3d5f0759b2b8a0b007891f14cb1 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sun, 5 Sep 2010 02:16:06 -0600 Subject: [PATCH] fixed example for unstable/wrapc --- collects/unstable/scribblings/wrapc.scrbl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/unstable/scribblings/wrapc.scrbl b/collects/unstable/scribblings/wrapc.scrbl index d27c8d76c2..aa53958eae 100644 --- a/collects/unstable/scribblings/wrapc.scrbl +++ b/collects/unstable/scribblings/wrapc.scrbl @@ -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))