Overview
| Comment: | Removed a debugging print statement |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | refactor-api |
| Files: | files | file ages | folders |
| SHA1: |
8a4503a00354bcf10a7cd7cf972fb1f4 |
| User & Date: | mrwellan on 2013-07-29 09:03:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-29
| ||
| 17:38 | More refactoring of api/transport check-in: b67dc2e04b user: mrwellan tags: refactor-api | |
| 09:06 | Merged dev into v1.55 as v1.5511 Closed-Leaf check-in: 0b1a754b65 user: mrwellan tags: defunct | |
| 09:03 | Removed a debugging print statement check-in: 8a4503a003 user: mrwellan tags: refactor-api | |
| 08:22 | Added locking of updater in dashboard to prevent overlapping updates check-in: 85fca3e930 user: matt tags: refactor-api | |
Changes
Modified mt.scm from [e031bccbb1] to [31d9a09536].
| ︙ | ︙ | |||
41 42 43 44 45 46 47 | ;; to extract info from the structure returned ;; (define (mt:get-runs-by-patt keys runnamepatt targpatt) (let loop ((runsdat (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt 0 500)) (res '()) (offset 0) (limit 500)) | | | 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
;; to extract info from the structure returned
;;
(define (mt:get-runs-by-patt keys runnamepatt targpatt)
(let loop ((runsdat (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt 0 500))
(res '())
(offset 0)
(limit 500))
;; (print "runsdat: " runsdat)
(let* ((header (vector-ref runsdat 0))
(runslst (vector-ref runsdat 1))
(full-list (append res runslst))
(have-more (eq? (length runslst) limit)))
;; (debug:print 0 "header: " header " runslst: " runslst " have-more: " have-more)
(if have-more
(let ((new-offset (+ offset limit))
|
| ︙ | ︙ |