start of scheme in sweet.js (modified from http://pastebin.com/0nPBg8LY)

scheme.sjs

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

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

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

these macros doesn't work anymore :(