anchor.diff:  ;		,val
   ;		")" ,*c-separator*))
   
  -;; XXX used to store argument definitions.
  -(define-c-macro %setq-atom-value (dest val)
  -  `(%transpiler-native ,*c-indent* "treatom_set_value (" ,(c-compiled-symbol dest) " ,"
  -		,val
  -		")" ,*c-separator*))
  -
   (define-c-macro %var (name)
  -  `(%transpiler-native ,*c-indent* "treptr " ,name ,*c-separator*))
  +  (c-codegen-var-declaration name))
   
   ;;; TYPE PREDICATES
   
  
positive.code: 	,@(codegen-%setq dest val)
      ,*c-separator*))
  
  (define-c-macro %setq-atom (dest val)
    `(%transpiler-native ,*c-indent* "treatom_set_value (" ,(c-compiled-symbol dest) " ,"
  		,val
  		")" ,*c-separator*))
  
  (define-c-macro %set-atom-fun (dest val)
    `(%transpiler-native ,dest "=" ,val ,*c-separator*))
  
negative.code:   `(%transpiler-native "l" ,tag ":" ,*c-separator*))
   
  (define-c-macro vm-go (tag)
    `(,*c-indent*
  	    "goto l" ,(transpiler-symbol-string *c-transpiler* tag)
  	,*c-separator*))
  
  (define-c-macro vm-go-nil (val tag)
  