Overview
Comment: | Missed removal of one print statement |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | refactor-api |
Files: | files | file ages | folders |
SHA1: |
188db4d0d0858876ad895885a4021e34 |
User & Date: | matt on 2013-07-29 00:20:10 |
Other Links: | branch diff | manifest | tags |
Context
2013-07-29
| ||
08:22 | Added locking of updater in dashboard to prevent overlapping updates check-in: 85fca3e930 user: matt tags: refactor-api | |
00:20 | Missed removal of one print statement check-in: 188db4d0d0 user: matt tags: refactor-api | |
00:12 | Fixed cleaning of steps window after fresh run. Fixd stuck gui on test-panel check-in: 9a62bcf487 user: matt tags: refactor-api | |
Changes
Modified dashboard-tests.scm from [07161126c3] to [1cd1530fdf].
︙ | ︙ | |||
580 581 582 583 584 585 586 | (loop (car tal)(cdr tal)(+ rownum 1) 1)))))) (if (> max-row 0) (begin ;; we are going to speculatively clear rows until we find a row that is already cleared (let loop ((rownum (+ max-row 1)) (colnum 0) (deleted #f)) | | | 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 | (loop (car tal)(cdr tal)(+ rownum 1) 1)))))) (if (> max-row 0) (begin ;; we are going to speculatively clear rows until we find a row that is already cleared (let loop ((rownum (+ max-row 1)) (colnum 0) (deleted #f)) ;; (debug:print-info 0 "cleaning " rownum ":" colnum) (let* ((next-row (if (eq? colnum 6) (+ rownum 1) rownum)) (next-col (if (eq? colnum 6) 1 (+ colnum 1))) (mtrx-rc (conc rownum ":" colnum)) (curr-val (iup:attribute steps-matrix mtrx-rc))) ;; (debug:print-info 0 "cleaning " rownum ":" colnum " currval= " curr-val) (if (and (string? curr-val) (not (equal? curr-val ""))) |
︙ | ︙ |