Added new test for constraint solving on starred functions with different fixed arg lengths.
original commit: 97847c32c4dd3d55baa3ff2b7a5ac9f7ed0b83fe
This commit is contained in:
parent
15f6c532e6
commit
f750b30c2f
6
collects/tests/typed-scheme/succeed/star-sizes.ss
Normal file
6
collects/tests/typed-scheme/succeed/star-sizes.ss
Normal file
|
@ -0,0 +1,6 @@
|
|||
#lang typed-scheme
|
||||
|
||||
(: f (All (a) ((Integer a * -> Integer) -> Integer)))
|
||||
(define (f g) 0)
|
||||
|
||||
(f +)
|
|
@ -1,6 +1,6 @@
|
|||
#lang scheme/base
|
||||
(require "test-utils.ss" (for-syntax scheme/base))
|
||||
(require (private planet-requires type-effect-convenience type-rep unify union infer type-utils)
|
||||
(require (private planet-requires type-effect-convenience type-rep union infer type-utils)
|
||||
(prefix-in table: (private tables)))
|
||||
(require (schemeunit))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user