@@ -20,12 +20,10 @@
 
 ;; (use trace)
 (use typed-records)
 
 ;; globals - modules that include this need these here
-(define *verbosity-cache* (make-hash-table))
-(define *verbosity* 0)
 (define *default-log-port* (current-error-port))
 (define *logging* #f)
 (define *functions* (make-hash-table)) ;; symbol => fn ### TEMPORARY!!!
 ;; (define *toppath* #f)
 (define *transport-type* 'http)
@@ -286,77 +284,10 @@
   (mutex-lock! mtx)
   (let ((res (apply accessor record val)))
     (mutex-unlock! mtx)
     res))
 
-;; this was cached based on results from profiling but it turned out the profiling
-;; somehow went wrong - perhaps too many processes writing to it. Leaving the caching
-;; in for now but can probably take it out later.
-;;
-(define (debug:calc-verbosity vstr verbose quiet) ;; verbose and quiet are #f or enabled
-  (or (hash-table-ref/default *verbosity-cache* vstr #f)
-      (let ((res (cond
-                  ((number? vstr) vstr)
-                  ((not (string?  vstr))   1)
-                  ;; ((string-match  "^\\s*$" vstr) 1)
-                  (vstr           (let ((debugvals  (filter number? (map string->number (string-split vstr ",")))))
-                                    (cond
-                                     ((> (length debugvals) 1) debugvals)
-                                     ((> (length debugvals) 0)(car debugvals))
-                                     (else 1))))
-                  (verbose                2) ;; ((args:get-arg "-v")   2)
-                  (quiet                  0) ;; ((args:get-arg "-q")    0)
-                  (else                   1))))
-        (hash-table-set! *verbosity-cache* vstr res)
-        res)))
-
-;; check verbosity, #t is ok
-(define (debug:check-verbosity verbosity vstr)
-  (if (not (or (number? verbosity)
-	       (list?   verbosity)))
-      (begin
-	(print "ERROR: Invalid debug value \"" vstr "\"")
-	#f)
-      #t))
-
-(define (debug:debug-mode n)
-  (cond
-   ((and (number? *verbosity*)   ;; number number
-	 (number? n))
-    (<= n *verbosity*))
-   ((and (list? *verbosity*)     ;; list   number
-	 (number? n))
-    (member n *verbosity*))
-   ((and (list? *verbosity*)     ;; list   list
-	 (list? n))
-    (not (null? (lset-intersection! eq? *verbosity* n))))
-   ((and (number? *verbosity*)
-	 (list? n))
-    (member *verbosity* n))))
-
-(define (debug:setup dmode verbose quiet)
-  (let ((debugstr (or dmode                           ;; (args:get-arg "-debug")
-		      (get-environment-variable "MT_DEBUG_MODE"))))
-    (set! *verbosity* (debug:calc-verbosity debugstr verbose quiet))
-    (debug:check-verbosity *verbosity* debugstr)
-    ;; if we were handed a bad verbosity rule then we will override it with 1 and continue
-    (if (not *verbosity*)(set! *verbosity* 1))
-    (if (or dmode                                            ;; (args:get-arg "-debug")
-	    (not (get-environment-variable "MT_DEBUG_MODE")))
-	(setenv "MT_DEBUG_MODE" (if (list? *verbosity*)
-				    (string-intersperse (map conc *verbosity*) ",")
-				    (conc *verbosity*))))))
-  
-(define (debug:print n e . params)
-  (if (debug:debug-mode n)
-      (with-output-to-port (or e (current-error-port))
-	(lambda ()
-	  ;; (if *logging*
-	  ;;    (exec-fn 'db:log-event (apply conc params))
-	  (apply print params)
-	  )))) ;; )
-
 ;; Brandon's debug printer shortcut (indulge me :)
 ;; (define *BB-process-starttime* (current-milliseconds))
 #;(define (BB> . in-args)
   (let* ((stack (get-call-chain))
          (location "??"))
@@ -421,41 +352,12 @@
     ;; (with-output-to-port (current-error-port)
        (printf "~a is: ~a\n" 'x (with-output-to-string (lambda () (BBpp x))))
      ;;  )
      ]
     [(_ x y ...) (begin (inspect x) (inspect y ...))]))
-
-(define (debug:print-error n e . params)
-  ;; normal print
-  (if (debug:debug-mode n)
-      (with-output-to-port (if (port? e) e (current-error-port))
-	(lambda ()
-	  ;; (if *logging*
-	     ;; (exec-fn 'db:log-event (apply conc params))
-	      ;; (apply print "pid:" (current-process-id) " " params)
-	  (apply print "ERROR: " params)
-	  ))) ;; )
-  ;; pass important messages to stderr
-  (if (and (eq? n 0)(not (eq? e (current-error-port)))) 
-      (with-output-to-port (current-error-port)
-	(lambda ()
-	  (apply print "ERROR: " params)
-	  ))))
-
-(define (debug:print-info n e . params)
-  (if (debug:debug-mode n)
-      (with-output-to-port (if (port? e) e (current-error-port))
-	(lambda ()
-	  ;; (if *logging*
-	  ;;    (let ((res (format#format #f "INFO: (~a) ~a" n (apply conc params))))
-		;; (exec-fn 'db:log-event res))
-	      ;; (apply print "pid:" (current-process-id) " " "INFO: (" n ") " params) ;; res)
-	  (apply print "INFO: (" n ") " params) ;; res)
-	  )))) ;; )
-
 
 
 ;; if a value is printable (i.e. string or number) return the value
 ;; else return an empty string
 (define-inline (printable val)
   (if (or (number? val)(string? val)) val ""))