122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
| 122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
-
+
-
+
-
-
-
-
-
+
-
| (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 "??"))
(location #f))
(for-each
(lambda (frame)
(let* ((this-loc (vector-ref frame 0))
(temp (string-split (->string this-loc) " "))
(this-func (cadr (string-split this-loc " "))))
(this-func (if (and (list? temp) (> (length temp) 1)) (cadr temp) "???")))
(let ((dp-args
(append
(list 0 *default-log-port*
(conc location "@"(/ (- (current-milliseconds) *BB-process-starttime*) 1000)" ") )
in-args)))
|