anchor.diff:  											""))))
   	(eval (+ "fun (" args ")"))
   	(x.shift)))
  +
  +(%transpiler-native "function maphash (fun, hash) { for (i in hash) fun (i); return null; }")
   ))
  
positive.code: 
  (define-js-macro not (x)
    `(%transpiler-native "!" ,x))
  
  ;    "ELT", "%SET-ELT", "LENGTH",
  ;    "CODE-CHAR", "INTEGER",
  
negative.code: 		    #'(lambda ,args
      		    ,@body))))
  
  (define-js-std-macro slot-value (x y)
    `(%slot-value ,x ,(second y)))
  
  (define-js-macro function (x)
    (if (atom x)
  	  x
        `("function " ,@(transpiler-binary-expand
  				      ","
  				      (argument-expand 'unnamed-js-function
  									   (lambda-args x) nil nil))
  	  ,(code-char 10)
  	  "{" ,(code-char 10)
        ,@(lambda-body x)
  