145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
+
+
-
+
-
+
|
(lambda (frame)
(let* ((this-loc (vector-ref frame 0))
(temp (string-split (->string this-loc) " "))
(this-func (if (and (list? temp) (> (length temp) 1)) (cadr temp) "???")))
(if (equal? this-func "BB>")
(set! location this-loc))))
stack)
(let ((color-on "\x1b[1m")
(color-off "\x1b[0m")
(let ((dp-args
(dp-args
(append
(list 0 *default-log-port*
(conc location "@"(/ (- (current-milliseconds) *BB-process-starttime*) 1000)" ") )
(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))
|