Commit 02b43831 authored by Per Bothner's avatar Per Bothner

* standard/define_library.java: Handle begin Syntax added by reader.

The reader (in readObject) will wrap top-level forms in a begin object
so we get position info; deal with those.
parent e07a2ffb
Pipeline #126774000 failed with stage
in 6 minutes and 4 seconds
2020-03-16 Per Bothner <per@bothner.com>
* standard/define_library.java: Handle begin Syntax added by reader.
The reader (in readObject) will wrap top-level forms in a begin object
so we get position info; deal with those.
2020-03-15 Per Bothner <per@bothner.com>
* lang/Translator.java: Change some rewrite procedure to take 'mode'.
......
......@@ -112,7 +112,9 @@ public class define_library extends Syntax {
syntax = Include.includeCi;
else if (clauseHead == importSymbol)
syntax = ImportFromLibrary.instance;
if (clauseHead == includeLibraryDeclarationsSymbol) {
if (clauseHead == begin.begin) {
scanModulePass(pclause.getCdr(), defs, tr);
} else if (clauseHead == includeLibraryDeclarationsSymbol) {
Object forms = Include.includeRelative
.process(pclause.getCdr(), tr, null, false);
scanModulePass(forms, defs, tr);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment