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

Remove tc/if-twoarm/check

Browse Source 
svn: r14860
This commit is contained in:
Sam Tobin-Hochstadt 2009-05-18 22:19:05 +00:00
parent b8f944679e
commit 5f1895cfb5
3 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-scheme/typecheck/signatures.ss
View File

@ -1,6 +1,7 @@
#lang scheme/base #lang scheme/base
(require scheme/unit scheme/contract "../utils/utils.ss") (require scheme/unit scheme/contract
(require (rep type-rep) "../utils/utils.ss"
(rep type-rep)
(utils unit-utils) (utils unit-utils)
(types utils)) (types utils))
(provide (all-defined-out)) (provide (all-defined-out))
@ -26,8 +27,7 @@
[cnt check-subforms/with-handlers/check (syntax? tc-results? . -> . any)])) [cnt check-subforms/with-handlers/check (syntax? tc-results? . -> . any)]))
(define-signature tc-if^ (define-signature tc-if^
([cnt tc/if-twoarm (syntax? syntax? syntax? . -> . tc-results?)] ([cnt tc/if-twoarm ((syntax? syntax? syntax?) (tc-results?) . ->* . tc-results?)]))
[cnt tc/if-twoarm/check (syntax? syntax? syntax? tc-results? . -> . tc-results?)]))
(define-signature tc-lambda^ (define-signature tc-lambda^
([cnt tc/lambda (syntax? syntax? syntax? . -> . tc-results?)] ([cnt tc/lambda (syntax? syntax? syntax? . -> . tc-results?)]

2
collects/typed-scheme/typecheck/tc-expr-unit.ss
View File

@ -228,7 +228,7 @@
(begin (tc-exprs/check (syntax->list #'es) Univ) (begin (tc-exprs/check (syntax->list #'es) Univ)
(tc-expr/check #'e expected))] (tc-expr/check #'e expected))]
;; if ;; if
[(if tst thn els) (tc/if-twoarm/check #'tst #'thn #'els expected)] [(if tst thn els) (tc/if-twoarm #'tst #'thn #'els expected)]
;; lambda ;; lambda
[(#%plain-lambda formals . body) [(#%plain-lambda formals . body)
(tc/lambda/check form #'(formals) #'(body) expected)] (tc/lambda/check form #'(formals) #'(body) expected)]

2
collects/typed-scheme/typecheck/tc-new-if.ss
View File

@ -36,5 +36,3 @@
[(tc-results: t _ _) [(tc-results: t _ _)
(tc-error/expr #:return (ret (or expected Err)) (tc-error/expr #:return (ret (or expected Err))
"Test expression expects one value, given ~a" t)])) "Test expression expects one value, given ~a" t)]))
(define tc/if-twoarm/check tc/if-twoarm)