anchor.diff:  	      token token)
   	    (if (= special "'")
   		(progn
  -		  (setf token (send token slice 1))
  +		  (setf token (token.slice 1))
   		  (increase-nesting)
   		  (accept-token 'quote))
   	      (setf special false))
  -	    (send specials unshift (as-boolean special))
  +	    (specials.unshift (as-boolean special))
   	    (if (= token "(") (increase-nesting)
   	      (progn
   		(if (= token ")") (decrease-nesting)
  -		  (if (send token match /^-?[0-9.]+$/)
  +		  (if (token.match /^-?[0-9.]+$/)
   		      (accept-token (parse-float token))
   		    (accept-token token)))
  -		(when (send specials shift)
  +		(when (specials.shift)
   		  (decrease-nesting)))))
   
   	  (chain string
  
positive.code:     (try
       (if (array? token)
  	 (if (defined? (get macros (translate (first token))))
  	     (apply (get macros (translate (first token))) (send token slice 1))
  	   (apply (get macros (or hint 'call)) token))
         (if (and (string? token) (send token match /^[*\.a-z-]+\??$/))
  	   (literal token)
  	 (if (and (string? token) (send token match /^;/
  					))
  	     (send token replace /^;+/ "//"
  		   )
  	   (if (and (string? token) (= "\"" (first token)))
  	       (chain token (split "\n") (join "\\n"))
  
negative.code: 
  (defun macros.reverse (arr)
    (defvar reversed (list))
    (each (item) arr (reversed.unshift item))
    reversed)
  
  (defvar reverse macros.reverse)
  