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