From c4078aa5e14a322fb3d6d41d4eb15fa1ed9806fb Mon Sep 17 00:00:00 2001 From: Nathan Braswell Date: Fri, 10 Apr 2020 23:11:17 -0400 Subject: [PATCH] added optional_WS back --- bf.kp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bf.kp b/bf.kp index b39ad0a..dcfb8a2 100644 --- a/bf.kp +++ b/bf.kp @@ -28,7 +28,7 @@ (add_grammer_rule :bfs [:bfs_list] (fn* [xs] (nth xs 0))) -(add_grammer_rule :form ["bf{" :bfs "}"] +(add_grammer_rule :form ["bf" :optional_WS "{" :optional_WS :bfs :optional_WS "}"] (fn* [xs] `(fn* [input] (let* ( @@ -45,6 +45,6 @@ _ (swap! inptr (fn* [old] (+ old 1)))) (swap! arr (fn* [old] (with_update old (deref ptr) h))))) out (fn* [] (swap! output (fn* [old] (cons (nth (deref arr) (deref ptr)) old))))) - (do ,(nth xs 1) (deref output)))))) + (do ,(nth xs 4) (deref output)))))) -(println (bf{,>+++[<.>-]} [1337])) +(println (bf { ,>+++[<.>-] } [1337]))