From 18990701a69d6705e9c7c56be5e858ea6e821f9f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 8 Feb 2016 11:19:00 -0700 Subject: [PATCH] xform: better reporting for disallowed call --- racket/collects/compiler/private/xform.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/racket/collects/compiler/private/xform.rkt b/racket/collects/compiler/private/xform.rkt index 2add772c4b..b640581d90 100644 --- a/racket/collects/compiler/private/xform.rkt +++ b/racket/collects/compiler/private/xform.rkt @@ -2542,9 +2542,10 @@ type)))]) (if (hash-ref non-gcing-functions name (lambda () #f)) (when saw-gcing-call - (log-error "[GCING] ~a in ~a: Function ~a declared __xform_nongcing__, but includes a function call." + (log-error "[GCING] ~a in ~a: Function ~a declared __xform_nongcing__, but includes a function call at ~s." (tok-line saw-gcing-call) (tok-file saw-gcing-call) - name)) + name + (tok-n saw-gcing-call))) (unless saw-gcing-call ' (eprintf "[SUGGEST] Consider declaring ~a as __xform_nongcing__.\n" @@ -3580,7 +3581,7 @@ (list->seq (append func (list args)))) ;; Call with pointer pushes (begin - (set! saw-gcing-call (car e-)) + (set! saw-gcing-call (car func)) (make-call "func call" #f #f