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

Small fixes

Browse Source 
svn: r13043

original commit: a932bfc84a65d6a6d9a9cf124931ce0ca3b30117
This commit is contained in:
Stevie Strickland 2009-01-09 00:33:43 +00:00
parent 3301fdba75
commit 679f32c6dc
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mzlib/unit.ss
View File

@ -587,13 +587,10 @@
(parameterize ((error-syntax #'err-stx))
(let* ([expand-context (generate-expand-context)]
[def-ctx (syntax-local-make-definition-context)]
[local-ivars (syntax->list (localify #'ivars def-ctx))]
[local-evars (syntax->list (localify #'evars def-ctx))]
[stop-list
(append
(kernel-form-identifier-list)
(syntax->list #'ivars)
(syntax->list #'evars))]
(syntax->list #'ivars))]
[definition?
(lambda (id)
(and (identifier? id)
@ -681,7 +678,7 @@
#`(if #,ctc
(contract #,ctc #,e '#,unit-name 'cant-happen #,(id->contract-src-info var))
#,e)))))
local-evars
(syntax->list (localify #'evars def-ctx))
(syntax->list #'elocs)
(syntax->list #'ext-evars)
(syntax->list #'ectcs))
@ -696,7 +693,7 @@
(raise-stx-err
"definition for imported identifier"
(var-info-id defid)))))
local-ivars)
(syntax->list (localify #'ivars def-ctx)))
(with-syntax ([(defn&expr ...)
(apply
@ -755,7 +752,6 @@
[else (list defn-or-expr)]))
expanded-body))])
#'(begin-with-definitions
(void)
defn&expr ...)))))))
(define-for-syntax (redirect-imports/exports import?)