anchor.diff:  (import urn/logger)
   (import urn/logger/void void)
   (import urn/parser parser)
  +(import urn/range range)
   (import urn/resolve/loop (compile))
   (import urn/resolve/scope scope)
   (import urn/resolve/state state)
  
positive.code:                    (print! (concat docs-results "  ")))))))
           (logger/put-error! logger ":search <keywords>"))]
  
        [true
          (logger/put-error! logger (.. "Unknown command '" command "'"))])))
  
  (defun exec-string (compiler scope string)
    :hidden
  
negative.code:       ["mono" 97]
        ["bold" 1]
        ["italic" 3]
        ["link" 94]
  
        ["comment"  90]
        ["string"   32]
        ["number"   0]
        ["key"      36]
        ["symbol"   0]
        ["keyword"  35]
        ["operator" 0])))
  
  (define token-mapping :hidden
    "Mapping of token names to their corresponding definition in [[color-for]]"
    { :string      :string
      :interpolate :string
      :number      :number
      :key         :key
      :symbol      :symbol
  
      :open           :operator
      :close          :operator
      :open-struct    :operator
      :close-struct   :operator
      :quote          :operator
      :quasi-quote    :operator
      :syntax-quote   :operator
      :unquote        :operator
      :unquote-splice :operator })
  
  (define keywords :hidden
    "Set of keywords which will be highlighted differently."
    (create-lookup '("define" "define-macro" "define-native"
                     "lambda" "set!" "cond" "import" "struct-literal"
                     "quote" "syntax-quote" "unquote" "unquote-splice"
  
                     "defun" "defmacro" "car" "cdr" "list" "cons" "progn"
                     "if" "when" "unless" "let" "let*" "with" "not" "gensym"
                     "for" "while" "and" "or" "loop" "case")))
  
  (defun print-docs! (str)
    :hidden
  