~jojo/Carth

a6c639e44061816f1bc668582e3267d8375044d2 — JoJo 4 months ago 070901a
Add let & let1 forms to do macro
1 files changed, 4 insertions(+), 0 deletions(-)

M std/macros.carth
M std/macros.carth => std/macros.carth +4 -0
@@ 24,5 24,9 @@
  (case (do-bind ma) ma)
  (case (do-bind (<- a ma) mbs ...)
        (do-bind (fun (a) (do do-bind mbs ...)) ma))
  (case (do-bind (let1 x a) mbs ...)
        (let1 x a (do do-bind mbs ...)))
  (case (do-bind (let bs) mbs ...)
        (let bs (do do-bind mbs ...)))
  (case (do-bind ma mbs ...)
        (do-bind (fun (_) (do do-bind mbs ...)) ma)))