~technomancy/fennel

04c15ce8a1099434ef7fb9791d51e5fbd5238380 — Phil Hagelberg 2 months ago 83ccb3c
Allow :until clauses to be literals.
1 files changed, 1 insertions(+), 1 deletions(-)

M src/fennel/specials.fnl
M src/fennel/specials.fnl => src/fennel/specials.fnl +1 -1
@@ 561,7 561,7 @@ the condition evaluates to truthy. Similar to cond in other lisps.")
    (let [[condition-lua] (compiler.compile1 condition scope chunk {:nval 1})]
      (compiler.emit chunk (: "if %s then break end" :format
                              (tostring condition-lua))
                     condition))))
                     (utils.expr condition :expression)))))

(fn SPECIALS.each [ast scope parent]
  (compiler.assert (>= (length ast) 3) "expected body expression" (. ast 1))