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

compiles

Browse Source 
svn: r9406
This commit is contained in:
Sam Tobin-Hochstadt 2008-04-22 22:05:32 +00:00
parent bd9d8b5ff3
commit 2ecee0968c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/private/tc-lambda-unit.ss
View File

@ -11,6 +11,7 @@
"type-utils.ss" "type-utils.ss"
"effect-rep.ss" "effect-rep.ss"
"tc-utils.ss" "tc-utils.ss"
"union.ss"
"resolve-type.ss" "resolve-type.ss"
(lib "plt-match.ss") (lib "plt-match.ss")
(only-in "type-effect-convenience.ss" [make-arr* make-arr])) (only-in "type-effect-convenience.ss" [make-arr* make-arr]))
@ -59,7 +60,7 @@
=> (lambda (thn/els) (make-arr arg-tys t #f (car thn/els) (cdr thn/els)))] => (lambda (thn/els) (make-arr arg-tys t #f (car thn/els) (cdr thn/els)))]
;; otherwise, the simple case ;; otherwise, the simple case
[else (make-arr arg-tys t)])] [else (make-arr arg-tys t)])]
[t (int-err "bad match - not a tc-result: ~a" t)]))) [t (int-err "bad match - not a tc-result: ~a" t)]))))
(let* ([arg-list (syntax->list #'(args* ...))] (let* ([arg-list (syntax->list #'(args* ...))]
[arg-types (map get-type arg-list)]) [arg-types (map get-type arg-list)])
(for-each (lambda (a) (printf/log "Lambda Var: ~a~n" (syntax-e a))) arg-list) (for-each (lambda (a) (printf/log "Lambda Var: ~a~n" (syntax-e a))) arg-list)