anchor.diff:               (arg/add-argument! spec '("--profile" "-p")
                  :help    "Run the compiled code with the profiler."
                  :var     "TYPE"
  -               :default "none"
  +               :default nil
                  :value   "call"
                  :narg    "?")
                (arg/add-argument! spec '("--")
  
positive.code: 
      (debug/sethook
        (lambda (action)
          (let* [(pos 2)
                 (stack '())
                 (info (debug/getinfo pos "Sn"))
            (while info
              (push-cdr! stack info)
              (inc! pos)
  
negative.code:                         (exit! 1)])))
           (case (string/lower (.> args :profile))
             ["none"  (exec)]
             [nil  (exec)]
             ["call"  (profile-calls exec (struct name lines))]
             ["stack" (profile-stack exec (struct name lines))]
             [?x
              (logger/put-error! logger (.. "Unknown profiler '" x "'"))
  