Overview
| Comment: | Fixed return from api dispatch |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-revolution |
| Files: | files | file ages | folders |
| SHA1: |
1b7c38b46cbac331ec57e8aad7acee93 |
| User & Date: | mrwellan on 2024-01-29 15:31:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-01-30
| ||
| 16:39 | Merged modfiles branch check-in: fdb6ea5bce user: mrwellan tags: v1.80-revolution | |
| 12:54 | Moved bunch of stuff into module files check-in: ab455d50eb user: mrwellan tags: v1.80-revolution-modfiles | |
|
2024-01-29
| ||
| 15:31 | Fixed return from api dispatch check-in: 1b7c38b46c user: mrwellan tags: v1.80-revolution | |
| 13:01 | Merged in alt-dispatch changes check-in: 530b4ded14 user: mrwellan tags: v1.80-revolution | |
Changes
Modified apimod.scm from [e79300191e] to [d947cae5df].
| ︙ | ︙ | |||
256 257 258 259 260 261 262 |
(cond
((< delta 500) 0.01)
((< delta 5000) 0.1)
((< delta 10000) 0.25)
(else 1.25))))
(let ((res (api:retrieve-result-item id)))
(if res
| | | 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 |
(cond
((< delta 500) 0.01)
((< delta 5000) 0.1)
((< delta 10000) 0.25)
(else 1.25))))
(let ((res (api:retrieve-result-item id)))
(if res
(api:queue-item-results res)
(loop start)))))
(define (api:queue-run-one)
(let* ((item (api:get-queue-item))) ;; this removes it from the in-queue
(if item
(let* ((id (api:queue-item-id item))
(proc (api:queue-item-proc item))
|
| ︙ | ︙ |
Modified mt.scm from [9ff41cb92d] to [c3fdbd205d].
| ︙ | ︙ | |||
13 14 15 16 17 18 19 | ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; | | > > | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;;
(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking (srfi 18) posix-extras directory-utils
call-with-environment-variables)
(import (prefix sqlite3 sqlite3:))
(declare (unit mt))
(declare (uses debugprint))
(declare (uses db))
(declare (uses common))
(declare (uses items))
|
| ︙ | ︙ |