@@ -146,13 +146,14 @@
 	  (if *logging*
 	      (db:log-event (apply conc params))
 	      (apply print params)
 	      )))))
 
+;; Useful stuff. Do not remove - commented and removed to trim mem usage for now (might make no difference).
 ;; Brandon's debug printer shortcut (indulge me :)
-(define *BB-process-starttime* (current-milliseconds))
-(define (BB> . in-args)
+#;(define *BB-process-starttime* (current-milliseconds))
+#;(define (BB> . in-args)
   (let* ((stack (get-call-chain))
          (location "??"))
     (for-each
      (lambda (frame)
        (let* ((this-loc (vector-ref frame 0))
@@ -168,20 +169,20 @@
              (list 0 *default-log-port*
                    (conc color-on location "@"(/ (- (current-milliseconds) *BB-process-starttime*) 1000) color-off "   ")  )
              in-args)))
       (apply debug:print dp-args))))
 
-(define *BBpp_custom_expanders_list* (make-hash-table))
+#;(define *BBpp_custom_expanders_list* (make-hash-table))
 
 
 
 ;; register hash tables with BBpp.
-(hash-table-set! *BBpp_custom_expanders_list* HASH_TABLE:
+#;(hash-table-set! *BBpp_custom_expanders_list* HASH_TABLE:
                  (cons hash-table? hash-table->alist))
 
 ;; test name converter
-(define (BBpp_custom_converter arg)
+#;(define (BBpp_custom_converter arg)
   (let ((res #f))
     (for-each
      (lambda (custom-type-name)
        (let* ((custom-type-info      (hash-table-ref *BBpp_custom_expanders_list* custom-type-name))
               (custom-type-test      (car custom-type-info))
@@ -189,11 +190,11 @@
          (when (and (not res) (custom-type-test arg))
            (set! res (custom-type-converter arg)))))
      (hash-table-keys *BBpp_custom_expanders_list*))
     (if res (BBpp_ res) arg)))
 
-(define (BBpp_ arg)
+#;(define (BBpp_ arg)
   (cond
    ;;((SOMESTRUCT? arg) (cons SOMESTRUCT: (SOMESTRUCT->alist arg)))
    ;;((dboard:tabdat? arg) (cons dboard:tabdat: (dboard:tabdat->alist arg)))
    ((hash-table? arg)
     (let ((al (hash-table->alist arg)))
@@ -202,11 +203,11 @@
    ;;((list? arg) (cons (BBpp_ (car arg)) (BBpp_ (cdr arg))))
    ((pair? arg) (cons (BBpp_ (car arg)) (BBpp_ (cdr arg))))
    (else (BBpp_custom_converter arg))))
 
 ;; Brandon's pretty printer.  It expands hashes and custom types in addition to regular pp
-(define (BBpp arg)
+#;(define (BBpp arg)
   (pp (BBpp_ arg)))
 
 ;(use define-macro)
 (define-syntax inspect
   (syntax-rules ()