* 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.

kawa/ChangeLog

+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'.

kawa/standard/define_library.java

@@ -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);