twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Add if let back in

Browse Source
This commit is contained in:
Scott Richmond 2023-11-30 11:58:04 -05:00
parent b60efbda18
commit 6070b6512e
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ludus/grammar.cljc
View File

@ -89,16 +89,6 @@
(quiet :rbrace) (quiet :rbrace)
]) ])
(defp if-expr group order-1 [(quiet :if)
nls?
simple
nls?
(quiet :then)
expression
nls?
(quiet :else)
expression])
(defp when-lhs flat choice [simple :placeholder :else]) (defp when-lhs flat choice [simple :placeholder :else])
(defp when-clause group weak-order [when-lhs (quiet :rarrow) expression]) (defp when-clause group weak-order [when-lhs (quiet :rarrow) expression])
@ -116,6 +106,18 @@
nls? nls?
non-binding]) non-binding])
(defp condition flat choice [simple let-expr])
(defp if-expr group order-1 [(quiet :if)
nls?
condition
nls?
(quiet :then)
expression
nls?
(quiet :else)
expression])
(defp tuple-entry weak-order [non-binding separators]) (defp tuple-entry weak-order [non-binding separators])
(defp tuple group order-1 [(quiet :lparen) (defp tuple group order-1 [(quiet :lparen)