suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

new 'file' collection to house file-format libraries

Browse Source 
svn: r8156

original commit: 643a19d01b39c8f702aa997ef40f2a16938b71b6
This commit is contained in:
Matthew Flatt 2007-12-29 19:27:05 +00:00
parent 1ba604d48e
commit 9618416c8e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scribble/manual.ss
View File

@ -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 ()