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

Split this out into what should succeed and what should fail.

Browse Source
This commit is contained in:
Stevie Strickland 2008-06-18 15:07:00 -04:00
parent 0c6ad7f08b
commit f80711bc9e
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/typed-scheme/fail/cl-bug.ss Normal file
View File

@ -0,0 +1,9 @@
#lang typed-scheme
(: f3 (case-lambda (Integer * -> Integer) (Number * -> Number)))
(define (f3 x y) (+ x y))
(+ 1 'foo)
(: f2 (case-lambda (Number * -> Number)))
(define (f2 x y) (+ x y))

10
collects/tests/typed-scheme/succeed/cl-bug.ss
View File

@ -4,12 +4,4 @@
(define (f . x) (+ 1 2))
(: f4 (case-lambda (Integer * -> Integer) (Number * -> Number)))
(define (f4 . x) (apply + x))
(: f3 (case-lambda (Integer * -> Integer) (Number * -> Number)))
(define (f3 x y) (+ x y))
(+ 1 'foo)
(: f2 (case-lambda (Number * -> Number)))
(define (f2 x y) (+ x y))
(define (f4 . x) (apply + x))