diff options
| -rw-r--r-- | chickadee/graphics/seagull.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/chickadee/graphics/seagull.scm b/chickadee/graphics/seagull.scm index 143c5a0..2d002ed 100644 --- a/chickadee/graphics/seagull.scm +++ b/chickadee/graphics/seagull.scm @@ -997,7 +997,9 @@ (define (annotate:call operator args env) (define operator* (annotate-exp operator env)) (define args* (annotate:list args env)) - (texp (fresh-type-variables-for-list (texp-types operator*)) + (texp (fresh-type-variables-for-list + (function-type-returns + (single-type operator*))) `(call ,operator* ,@args*))) (define* (annotate:top-level bindings body env #:optional (result '())) |