Differences From Artifact [7130aea8bc]:
- File common_records.scm — part of check-in [29e9b8cb21] at 2017-10-05 12:16:46 on branch v1.64-itemflow2 — second attempt to solve itemwait problems (user: bjbarcla, size: 8237) [annotate] [blame] [check-ins using]
To Artifact [9609771573]:
- File
common_records.scm
— part of check-in
[f7fdbdc305]
at
2017-09-28 17:58:45
on branch v1.64-keep-running-fix
— updated - itemwait continues forward now, but runs do not stop. it is progress.
problems 1- toplevel goes to completed when not all items have started but so-far started items are completed. 2- not-started/preq-fail propagates not-started/na (which propagates not-started/preq-fail) (user: bjbarcla, size: 8244) [annotate] [blame] [check-ins using] [more...]
| ︙ | ︙ | |||
145 146 147 148 149 150 151 |
(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)
| | | | | | | | | 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 |
(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")
(dp-args
(append
(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))
;; register hash tables with BBpp.
|
| ︙ | ︙ |