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

Another change.

Browse Source
This commit is contained in:
Stevie Strickland 2008-06-19 19:12:39 -04:00
parent af12feb729
commit a1f078fb59
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/typed-scheme/succeed/dotted-identity.ss
View File

@ -12,5 +12,12 @@
(define (z . xs) (apply + xs)) (define (z . xs) (apply + xs))
((f z) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18) ((f z) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18)
#;
#{(f z) :: (Integer * -> Integer)} #; #{(f z) :: (Integer * -> Integer)}
;; I don't believe the below should work, but it points out where that internal error is coming from.
(: g (All (b ...) ( -> (b ... b -> Integer))))
(define (g) (lambda xs 0))
(f (g))