Tail Call Optimization with sweet.js

tco.sjs

let function = macro {
    rule {  // proper tail call
        $n ( $x (,) ... ) {
            if ($b ... ) return $l:expr ;
            return $n ( $y:expr (,) ...) ;
        }
    } => {
        function $n ( $( $x ,) ... $xl) {
            var tmp = {};
            while (!($b ...)) {
                $( tmp . $x = $y ) (;) ...
                $( $x = tmp . $x) (;) ...
            }
            return $l;
        }
    }
    rule { // otherwise
        $n ( $x (,) ...) { $s ... }
    } => {
        function $n ( $x (,) ...) { $s ... }
    }
}

function factorial(n) {
    function f(n, i) {
        if (n == 0) return i;
        return f(n - 1, i * n);
    };
    return f(n, 1);
}

alert(factorial(4));