expose parser instance from syntax extensions #308

jcubic · Mar 25, 2024 · cdfd8c8 · cdfd8c8
1 parent 0db3abb
commit cdfd8c8
Show file tree

Hide file tree

Showing 7 changed files with 39 additions and 20 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -36,6 +36,7 @@
 * allow to use unquoted symbols in `-->` to get the function
 * add `regex` procedure (rename from `%r` used in bootstrap.scm)
 * support unterminated strings in REPL [#280](https://github.com/jcubic/lips/issues/280)
+* expose parser and lexer instance from syntax extensions [#308](https://github.com/jcubic/lips/issues/308)
 ### Bugfix
 * fix `let-values` to allow binding to list [#281](https://github.com/jcubic/lips/issues/281)
 * fix wrong strings in `string-fill!`

diff --git a/dist/lips.cjs b/dist/lips.cjs
diff --git a/dist/lips.esm.js b/dist/lips.esm.js
diff --git a/dist/lips.esm.min.js b/dist/lips.esm.min.js
diff --git a/dist/lips.js b/dist/lips.js
diff --git a/dist/lips.min.js b/dist/lips.min.js
diff --git a/src/lips.js b/src/lips.js
@@ -1437,14 +1437,17 @@ function match_or_null(re, char) {
 class Parser {
     constructor({ env, meta = false, formatter = multiline_formatter } = {}) {
         read_only(this, '_formatter', formatter, { hidden: true });
-        read_only(this, '__env__', env);
+        read_only(this, '__env__', env ?? env.inerit('parser'));
         read_only(this, '_meta', meta, { hidden: true });
         // datum labels
         read_only(this, '_refs', [], { hidden: true });
         read_only(this, '_state', {
             parentheses: 0,
             fold_case: false
         }, { hidden: true });
+        if (this.__env__) {
+            this.__env__.set('lips',  { ...lips, __parser__: this });
+        }
     }
     parse(arg) {
         if (arg instanceof LString) {