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

369.11

Browse Source 
svn: r6085

original commit: e9bf34f1930103f62651e3ec5cbf35b791d097c6
This commit is contained in:
Matthew Flatt 2007-04-29 02:08:24 +00:00
parent cd0e01c68e
commit 54bbbacc04
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/unit.ss
View File

@ -1581,12 +1581,15 @@
(syntax-case stx () ((_ . x) #'x)))))) (syntax-case stx () ((_ . x) #'x))))))
u)) u))
(define-syntax/err-param (define-compound-unit/infer stx) (define-for-syntax (do-define-compound-unit/infer stx)
(build-define-unit stx (build-define-unit stx
(lambda (clause) (lambda (clause)
(build-compound-unit/infer (check-compound/infer-syntax clause))) (build-compound-unit/infer (check-compound/infer-syntax clause)))
"missing unit name")) "missing unit name"))
(define-syntax/err-param (define-compound-unit/infer stx)
(do-define-compound-unit/infer stx))
(define-syntax/err-param (invoke-unit stx) (define-syntax/err-param (invoke-unit stx)
(syntax-case stx (import) (syntax-case stx (import)
((_ unit) ((_ unit)