anchor.diff:          (exit! 1))
   
         (when (string? prefix)
  -        (self handle :write (string/format "local %s = %s or {}\n" prefix prefix)))
  +        (self handle :write (string/format "local %s = %s or {}\n" escaped prefix)))
   
         (self handle :write "return {\n")
         (for-each native natives
           (self handle :write (string/format format
                                 (.. (quoted native) "] =")
                                 (.. (quoted (dot-quote prefix native)) ",")
  -                              (.. (dot-quote prefix native) ","))))
  +                              (.. (dot-quote escaped native) ","))))
         (self handle :write "}\n")
         (self handle :close))))
   
  
positive.code: (import string (quoted))
  
  (import urn/logger logger)
  
  (defun dot-quote (prefix name)
    :hidden
    (if (string/find name "^[%w_][%d%w_]*$")
      (if prefix (.. prefix "." name) name)
      (if prefix (.. prefix "[" (quoted name) "]") (.. "_ENV[" (quoted name) "]"))))
  
  (defun gen-native (compiler args)
    :hidden
  
negative.code: 
            (set! max-name (math/max max-name (#s (quoted name))))
            (set! max-quot (math/max max-quot (#s (quoted (dot-quote prefix name)))))
            (set! max-pref (math/max max-pref (#s (dot-quote escaped name)))))))
  
      (table/sort natives)
  
  