Add if let back in

This commit is contained in:
Scott Richmond 2023-11-30 11:58:04 -05:00
parent b60efbda18
commit 6070b6512e

View File

@ -89,16 +89,6 @@
(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-clause group weak-order [when-lhs (quiet :rarrow) expression])
@ -116,6 +106,18 @@
nls?
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 group order-1 [(quiet :lparen)