Index: ulex/ulex.scm ================================================================== --- ulex/ulex.scm +++ ulex/ulex.scm @@ -23,11 +23,11 @@ ;; NOTES: ;; Why sql-de-lite and not say, dbi? - performance mostly, then simplicity. ;; ;;====================================================================== -;; (use rpc pkts mailbox sqlite3) +(use mailbox) (module ulex * (import scheme posix chicken data-structures ports extras files mailbox) @@ -79,13 +79,13 @@ ;; connect to a specific dbfile (define (connect udata dbfname dbtype) udata) (define (ping udata host-port) - (let ((cookie (make-cookie udata))) - (send udata host-port 'ping "just pinging" (conc (current-seconds))) - ;; (mailbox-rec + (let* ((cookie (make-cookie udata)) + (res (send-receive udata host-port 'ping "just pinging" (conc (current-seconds))))) + (print "got res=" res) )) ;;====================================================================== ;; network utilities ;;======================================================================