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

cs: module in some error messages only when enabled

Browse Source 
Check `(error-print-source-location)` before adding a module name in
an error message about use/set before definition.
This commit is contained in:
Matthew Flatt 2019-11-28 05:51:48 -07:00
parent 8b00249265
commit a410905c99
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
racket/src/cs/linklet.sls
View File

@ -88,6 +88,7 @@
find-system-path
build-path
format
error-print-source-location
;; Used by cross-compiler:
get-original-error-port
subprocess
@ -844,14 +845,17 @@
"importing instance" (unquoted-printing-string (format "~a" (instance-name target-inst)))))
(define (identify-module var)
(let ([i (car (variable-inst-box var))])
(cond
[(eq? i #!bwp)
""]
[(instance-name i)
=> (lambda (name)
(#%format "\n module: ~a" name))]
[else ""])))
(cond
[(error-print-source-location)
(let ([i (car (variable-inst-box var))])
(cond
[(eq? i #!bwp)
""]
[(instance-name i)
=> (lambda (name)
(#%format "\n module: ~a" name))]
[else ""]))]
[else ""]))
(define (raise-undefined var set?)
(raise