Overview
| Comment: | missed a variable change in a almost never used routine - only to trigger the use of said routine. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
4cfc6e3ba27155e2ece517f47caaba24 |
| User & Date: | matt on 2014-11-16 20:51:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-11-16
| ||
| 21:50 | fixed logic in test registration. More agressive starting of a server when sync takes a long time check-in: 333191162a user: matt tags: v1.60 | |
| 20:51 | missed a variable change in a almost never used routine - only to trigger the use of said routine. check-in: 4cfc6e3ba2 user: matt tags: v1.60 | |
| 20:40 | Use required mode by default in QA - for now check-in: 91923e2ee5 user: matt tags: v1.60 | |
Changes
Modified rmt.scm from [045a714be1] to [7c6d8ceacc].
| ︙ | ︙ | |||
215 216 217 218 219 220 221 |
(define (rmt:send-receive-no-auto-client-setup connection-info cmd run-id params)
(let* ((run-id (if run-id run-id 0))
(jparams (db:obj->string params)) ;; (rmt:dat->json-str params))
(dat (http-transport:client-api-send-receive run-id connection-info cmd jparams)))
(if (and dat (vector-ref dat 0))
(db:string->obj (vector-ref dat 1))
(begin
| | | | 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 |
(define (rmt:send-receive-no-auto-client-setup connection-info cmd run-id params)
(let* ((run-id (if run-id run-id 0))
(jparams (db:obj->string params)) ;; (rmt:dat->json-str params))
(dat (http-transport:client-api-send-receive run-id connection-info cmd jparams)))
(if (and dat (vector-ref dat 0))
(db:string->obj (vector-ref dat 1))
(begin
(debug:print 0 "ERROR: rmt:send-receive-no-auto-client-setup failed, attempting to continue. Got " dat)
dat))))
;; Wrap json library for strings (why the ports crap in the first place?)
(define (rmt:dat->json-str dat)
(with-output-to-string
(lambda ()
(json-write dat))))
|
| ︙ | ︙ |