bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 9618416c8ef5c5efd5709f83e7672fcd608b7ac8
parent 1ba604d48e847cbb7b9ba5a49ad96e09a0391458
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat, 29 Dec 2007 19:27:05 +0000

new 'file' collection to house file-format libraries

svn: r8156

original commit: 643a19d01b39c8f702aa997ef40f2a16938b71b6

Diffstat:
M
collects/scribble/manual.ss
 | 
12
+++++++++++-

1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -531,6 +531,16 @@
       [else
        #'#f]))
 
+  (define-syntax (result-contract stx)
+    (syntax-case stx ()
+      [(_ c)
+       (if (string? (syntax-e #'c))
+           (raise-syntax-error
+            'defproc
+            "expected a result contract, found a string"
+            #'c)
+           #'(schemeblock0 c))]))
+
   (define-syntax defproc 
     (syntax-rules ()
       [(_ (id arg ...) result desc ...)
@@ -545,7 +555,7 @@
                  '[(id arg ...) ...] 
                  (list (list (lambda () (arg-contract arg)) ...) ...)
                  (list (list (lambda () (arg-default arg)) ...) ...)
-                 (list (lambda () (schemeblock0 result)) ...)
+                 (list (lambda () (result-contract result)) ...)
                  (lambda () (list desc ...)))]))
   (define-syntax defstruct
     (syntax-rules ()