Index: db.scm ================================================================== --- db.scm +++ db.scm @@ -1183,12 +1183,14 @@ ;; params = 'target cached remparams (define (cdb:client-call zmq-socket . params) (debug:print-info 11 "cdb:client-call zmq-socket=" zmq-socket " params=" params) (let ((zdat (db:obj->string params)) ;; (with-output-to-string (lambda ()(serialize params)))) (res #f)) + ;; (signal-mask! signal/int) (set! *received-response* #f) (send-message zmq-socket zdat) + ;; (signal-unmask! signal/int) (set! res (db:string->obj (if *client-non-blocking-mode* (receive-message* zmq-socket) (receive-message zmq-socket)))) (set! *received-response* #t) (debug:print-info 11 "zmq-socket " (car params) " res=" res) Index: megatest-version.scm ================================================================== --- megatest-version.scm +++ megatest-version.scm @@ -1,7 +1,7 @@ ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) -(define megatest-version 1.5110) +(define megatest-version 1.5112)