From 6dd26ef3f562d551216420b982e9f9dfc2340bd0 Mon Sep 17 00:00:00 2001 From: Random Hacker Date: Thu, 8 Mar 2012 11:29:06 +0100 Subject: ebus-racket: db-pq: cast real to double --- ebus-racket/db-pq.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ebus-racket/db-pq.rkt') diff --git a/ebus-racket/db-pq.rkt b/ebus-racket/db-pq.rkt index 03ef154..3b15a73 100644 --- a/ebus-racket/db-pq.rkt +++ b/ebus-racket/db-pq.rkt @@ -63,7 +63,7 @@ ;; then calls 'insert` (define (insert-field sensor-name datatype offset value) (cond ((member datatype (list "data1c" "data2b" "data2c")) - (insert sensor-name "float" value)) + (insert sensor-name "float" (real->double-flonum value))) ((member datatype (list "bit" "byte" "data1b" "word" "bcd")) (insert sensor-name "int" value)) ((member datatype (list "byteEnum")) -- cgit v1.2.1