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

fix expr attribute

Browse Source 
svn: r13438
This commit is contained in:
Sam Tobin-Hochstadt 2009-02-04 23:07:09 +00:00
parent f867eea8c3
commit 9f77daab41
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/typed-scheme/typecheck/tc-app-unit.ss
View File

@ -530,12 +530,12 @@
(pattern (begin expr ...))
(pattern (begin0 expr ...))
(pattern (#%plain-lambda _ e)
#:with (exprs ...) #'(e))
(pattern (case-lambda [_ exprs] ...))
#:with (expr ...) #'(e))
(pattern (case-lambda [_ expr] ...))
(pattern (set! _ e)
#:with (exprs ...) #'(e))
#:with (expr ...) #'(e))
(pattern _
#:with (exprs ...) #'()))
#:with (expr ...) #'()))
;; expr id -> type or #f
;; if there is a binding in stx of the form:
@ -554,10 +554,10 @@
(syntax-parse stx
#:literals (let-values)
[(let-values cls:lv-clauses body)
(cond [(ormap match? (syntax->list #'cls))]
[else (find #'body)])]
(or (ormap match? (syntax->list #'cls))
(find #'body))]
[e:core-expr
(ormap find (syntax->list #'e.exprs))]))
(ormap find (syntax->list #'(e.expr ...)))]))
(define (check-do-make-object cl pos-args names named-args)