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

xform: better reporting for disallowed call

Browse Source
This commit is contained in:
Matthew Flatt 2016-02-08 11:19:00 -07:00
parent 9a8fd2912f
commit 18990701a6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/collects/compiler/private/xform.rkt
View File

@ -2542,9 +2542,10 @@
type)))]) type)))])
(if (hash-ref non-gcing-functions name (lambda () #f)) (if (hash-ref non-gcing-functions name (lambda () #f))
(when saw-gcing-call (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) (tok-line saw-gcing-call) (tok-file saw-gcing-call)
name)) name
(tok-n saw-gcing-call)))
(unless saw-gcing-call (unless saw-gcing-call
' '
(eprintf "[SUGGEST] Consider declaring ~a as __xform_nongcing__.\n" (eprintf "[SUGGEST] Consider declaring ~a as __xform_nongcing__.\n"
@ -3580,7 +3581,7 @@
(list->seq (append func (list args)))) (list->seq (append func (list args))))
;; Call with pointer pushes ;; Call with pointer pushes
(begin (begin
(set! saw-gcing-call (car e-)) (set! saw-gcing-call (car func))
(make-call (make-call
"func call" "func call"
#f #f #f #f