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

Small fix to wpo error message.

Browse Source 
improved error message for compile-whole-program and
compile-whole-library when a top-level expression is discovered while
processing a wpo file.
  compile.ss

original commit: 11cee34502470d720d611ffd0799353e8663a7f1
This commit is contained in:
Andy Keep 2019-03-19 22:21:27 -04:00
parent 0b89f4fe82
commit e3d64728e9
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
LOG
View File

@ -1198,3 +1198,7 @@
bintar (removed), bintar/Makefile (new), rpm/Makefile (new), bintar (removed), bintar/Makefile (new), rpm/Makefile (new),
pkg/Makefile (new), pkg/rmpkg (new), workarea, checkin, newrelease, pkg/Makefile (new), pkg/rmpkg (new), workarea, checkin, newrelease,
Makefile.in, Makefile-workarea.in. Makefile.in, Makefile-workarea.in.
- improved error message for compile-whole-program and
compile-whole-library when a top-level expression is discovered while
processing a wpo file.
compile.ss

2
s/compile.ss
View File

@ -896,7 +896,7 @@
[(visit-only ,[inner 'visit ->]) (values)] [(visit-only ,[inner 'visit ->]) (values)]
[(revisit-only ,[inner 'revisit ->]) (values)]) [(revisit-only ,[inner 'revisit ->]) (values)])
(Inner : Inner (ir situation) -> * () (Inner : Inner (ir situation) -> * ()
[,lsrc ($oops who "encountered bare lsrc item while processing wpo file ~s" ($uncprep lsrc))] [,lsrc ($oops who "expected program or library form, but encountered top-level expression ~s processing wpo file ~a" ($uncprep lsrc) ifn)]
[,linfo/ct (let ([node (record-ct-lib! linfo/ct #f situation ifn libs-visible?)]) [,linfo/ct (let ([node (record-ct-lib! linfo/ct #f situation ifn libs-visible?)])
(when node (set! libs-in-file (cons node libs-in-file)))) (when node (set! libs-in-file (cons node libs-in-file))))
(values)] (values)]