improve function application error messages

2020-02-26 14:50:08 -05:00 · 2020-02-26 14:50:08 -05:00 · 86258acc6c
parent b6c934b9f3
commit 86258acc6c
1 changed files with 2 additions and 0 deletions
--- a/racket/typed/core-types.rkt
+++ b/racket/typed/core-types.rkt
@ -1386,6 +1386,8 @@
                                                   (~Endpoints τ-ep ...)
                                                   (~Roles τ-f ...)
                                                   (~Spawns τ-s ...))))]
+   ;; TODO - don't know why this cut is needed for error messages
+   #:cut
   #:fail-unless (pure? #'e_fn-) "expression not allowed to have effects"
   #:fail-unless (stx-length=? #'[τ_in ...] #'[e_arg ...])
                 (num-args-fail-msg #'e_fn #'[τ_in ...] #'[e_arg ...])