anchor.diff:      (cond
         [nil
          (logger/put-error! logger "Expected command after ':'")]
  +
         [(or (= command "help") (= command "h"))
          (print! "REPL commands:
                   [:d]oc NAME        Get documentation about a symbol
  +                :module NAME       Display a loaded module's docs and definitions.
                   :scope             Print out all variables in the scope
                   [:s]earch QUERY    Search the current scope for symbols and documentation containing a string.
  -                :module NAME       Display a loaded module's docs and definitions.
  +                [:v]iew NAME       Display the definition of a symbol.
                   [:q]uit            Exit the REPL cleanly.")]
  -      [(or (= command "quit") (= command "q"))
  -       (print! "Goodbye.")
  -       (os/exit 0)]
  +
         [(or (= command "doc") (= command "d"))
          (with (name (nth args 2))
            (if name
  
positive.code:       ["mono" 97]
        ["bold" 1]
        ["italic" 3]
        ["link" 94])))
  
  (defun print-docs! (str)
    :hidden
  
negative.code:                   (table/sort vars)
                    (print! (concat vars "  ")))]))
             (logger/put-error! logger ":module <variable>")))]
  
        [(or (= command "search") (= command "s"))
         (if (> (n args) 1)
  