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:   (defvar last undefined
            args (list))
    (each (arg) arglist
  	(if (= (first arg) "&") (setf last (send arg slice 1))
  	  (progn
  	    (send args push (list (or last 'required) arg))
  	    (setf last null))))
  
    (when last
  
negative.code:   (inject (chain string
  		 (replace /\*/g "_")
  		 (replace /\?$/ "Q"))
  	  (string.match /-(.)/g)
  	  (lambda (return-string match)
  	    (return-string.replace match
  		  (send (second match) to-upper-case)))))
  
  
  