lisp-let-2.0.sc

sugar let (bindings body...)
    let bindings =
        fold (result = '(embed)) for binding in (bindings as list)
            sugar-match (binding as list)
            case (name expr)
                cons
                    qq [let] [name] = [expr]
                    result
            default
                error "invalid let syntax"
    qq
        [do]
            [('reverse bindings)]
            unquote-splice body...

run-stage;

(print
    (let
        ((a 2)
         (b 3)
         (c (+ a 1)))
        (print a b c)
        (+ a b c)))