Fix tc/pass2.

Closes PR14148.

original commit: d6935f536516196e78a9301a2b33b02204feb9be
This commit is contained in:
Eric Dobson 2013-11-11 09:36:43 -08:00
parent 2dfc8156fb
commit 0b6ce3b58b
2 changed files with 5 additions and 0 deletions

View File

@ -236,6 +236,8 @@
(void)]
;; definitions just need to typecheck their bodies
[(define-values () expr)
(tc-expr/check #'expr (ret empty))]
[(define-values (var ...) expr)
(unless (for/and ([v (in-syntax #'(var ...))])
(free-id-table-ref unann-defs v (lambda _ #f)))

View File

@ -0,0 +1,3 @@
#lang typed/racket
(define-values () (+ 1 "x"))