scheme.sjs (forked from https://gist.github.com/disnet/3854258)

scheme.sjs

macro sexp {
  rule {()} => {
    ; 
  }
  rule {($p)} => {
    $p
  }
  rule {($x $y)} => {
    $x($y);
  }
  rule {(return $x)} => {
    return $x;
  }
  rule {(display $params)} => {
    console.log($params);
  }
  rule {(define $name $body)} => {
    var $name = scheme { $body }
  }
  rule {(lambda $params $body)} => {
    function $params { scheme {$body}}
  }
}

macro scheme {
  rule { { $x } } => {
    sexp $x
  }
  rule { { $x $rest ... } } => {
    sexp $x
    scheme { $rest ... }
  }
}

scheme {
  (display "hello")
  (display "foo")
  (define foo (lambda (a) (return "hello")))
}