miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New kraken with import and #lang passed start symbol

Browse Source
This commit is contained in:
Nathan Braswell
2021-01-02 13:55:07 -05:00
parent 4ed9af307f
commit 6c0a46099a
4 changed files with 53 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
prelude.kp
View File

@@ -179,15 +179,15 @@
(array (quote form) (array "~" (quote WS) * (quote form)) (lambda (_ _ x) (array (quote unquote) x)))
(array (quote form) (array "," (quote WS) * (quote form)) (lambda (_ _ x) (array (quote splice-unquote) x)))
(array (quote start_symbol) (array (quote WS) * (quote form) (quote WS) *) (lambda (_ f _) f))
(array (quote start_symbol) (array (quote WS) * "#lang" (quote WS) * (quote form) "([ -~]|
(array (quote start_symbol) (array (quote WS) * "#lang" (quote WS) (quote form) (quote WS) (quote form) "([ -~]|
)*")
(lambda (_ _ _ gram source) (do (println "gonna do that # yo") (read-string source
(lambda (_ _ _ gram _ symbol source) (do (println "gonna do that # yo") (read-string source
(eval (concat
(insert_into_scope_let
(insert_into_scope_let scope_let_sans_import_gram (quote standard_grammar) (gen_standard_grammar))
(quote with_import) with_import)
(array gram)) root_env)
(quote start_symbol)))))
symbol))))
))
)
(insert_into_scope_let