anchor.diff:  	  (indent
   	   (concat "var "
   		   (chain
  -		    (map
  -		     (send args slice (+ option-index 1))
  -		     (lambda (arg arg-index)
  -		       (concat (translate (second arg)) " = "
  -			       (translate (second (get args (+ option-index arg-index)))))))
  +		    (map (args.slice (+ option-index 1))
  +			 (lambda (arg arg-index)
  +			   (concat (translate (second arg)) " = "
  +				   (translate (second (get args
  +							   (+ option-index
  +							      arg-index)))))))
   		    (reverse)
   		    (concat (concat (translate (second arg)) " = undefined"))
   		    (join ", "))
  
positive.code:   (when (and (= (typeof (first body)) 'string)
  	     (send (first body) match /^".*"$/))
      (setf doc-string
  	  (concat "/* " (eval (send body shift)) " */\n")))
  
    (defvar no-rest-args (if rest (send args slice 0 -1) args)
      args-string (build-args-string no-rest-args rest)
      comment-string (build-comment-string args))
  
  
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)))))
  
  
  