From 5baa4fe3bac3552e3d5c7fd533956f7f658855fe Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sat, 19 Mar 2022 17:28:30 -0400 Subject: [PATCH] Expose parse function --- src/ludus/parser.clj | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/src/ludus/parser.clj b/src/ludus/parser.clj index fb32276..2d09566 100644 --- a/src/ludus/parser.clj +++ b/src/ludus/parser.clj @@ -419,9 +419,16 @@ )))) +(defn parse [lexed] + (-> lexed + (:tokens) + (parser) + (parse-script) +)) + (do (def pp pp/pprint) - (def source "nil") + (def source "42") (def lexed (scanner/scan source)) (def tokens (:tokens lexed)) (def p (parser tokens)) @@ -434,7 +441,7 @@ (-> p (parse-script) - (::ast) + ;;(::ast) (pp) ) )