Fix internal error.
Needs a real fix in the future to actually support this case. Noted in a program from Matthias Felleisen. Fixes PR 14841. original commit: a64dadc78c54fc04bfa8ac8ae9649f4178f0ae25
This commit is contained in:
parent
0d4b3e6a92
commit
0c5d2297cb
|
@ -22,6 +22,8 @@
|
|||
(match (tc/funapp #'prod #'() (tc-expr/t #'prod) null #f)
|
||||
[(tc-results: ts fs os)
|
||||
(tc/funapp #'con #'(prod) (tc-expr/t #'con) (map ret ts fs os) expected)]
|
||||
[(tc-results: ts fs os drest dbound)
|
||||
(tc-error/expr "`call-with-values` with ... is not supported")]
|
||||
[(tc-any-results: _)
|
||||
(tc/app-regular this-syntax expected)]))
|
||||
;; special case for `values' with single argument
|
||||
|
|
Loading…
Reference in New Issue
Block a user