Generalize fixed-length lists to listofs.
Closes PR10057. original commit: 570df7d6658d4ff0b88c12fb6d3af4917a1a3fa3
This commit is contained in:
parent
c6d892cd0f
commit
6aa8cbee9d
5
collects/tests/typed-scheme/succeed/pr10057.rkt
Normal file
5
collects/tests/typed-scheme/succeed/pr10057.rkt
Normal file
|
@ -0,0 +1,5 @@
|
|||
#lang typed-scheme
|
||||
(require scheme/match)
|
||||
(ann (match '(a b c)
|
||||
[(list sym more ...) 1]
|
||||
[else 1]) Integer)
|
Loading…
Reference in New Issue
Block a user