diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux index 172a4d13c..db8c9b18e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux @@ -87,8 +87,8 @@ (-> (Expression Any) (Computation Any)) (|>> [1 #1] ..variant)) -(syntax: .public (with_vars {vars (<code>.tuple (<>.some <code>.local_identifier))} - body) +(syntax: .public (with_vars [vars (<code>.tuple (<>.some <code>.local_identifier)) + body <code>.any]) (do {! meta.monad} [ids (monad.seq ! (list.repeated (list.size vars) meta.seed))] (in (list (` (let [(~+ (|> vars @@ -96,13 +96,13 @@ (list\map (function (_ [id var]) (list (code.local_identifier var) (` (_.var (~ (code.text (format "v" (%.nat id))))))))) - list.concat))] + list.joined))] (~ body))))))) -(syntax: (runtime: {declaration (<>.or <code>.local_identifier +(syntax: (runtime: [declaration (<>.or <code>.local_identifier (<code>.form (<>.and <code>.local_identifier - (<>.some <code>.local_identifier))))} - code) + (<>.some <code>.local_identifier)))) + code <code>.any]) (do meta.monad [runtime_id meta.seed] (macro.with_identifiers [g!_] |