summaryrefslogtreecommitdiff
path: root/ebus-racket
diff options
context:
space:
mode:
authorRandom Hacker <random_hacker@xapek.org>2012-03-08 11:29:06 +0100
committerRandom Hacker <random_hacker@xapek.org>2012-03-08 11:29:06 +0100
commit6dd26ef3f562d551216420b982e9f9dfc2340bd0 (patch)
treeba701090bc44144f17bfa8c8b6cf0cd1b61e9ece /ebus-racket
parenta84447cf9c06c2813df831b3fde105c45d02727c (diff)
downloadebus-alt-6dd26ef3f562d551216420b982e9f9dfc2340bd0.tar.gz
ebus-alt-6dd26ef3f562d551216420b982e9f9dfc2340bd0.zip
ebus-racket: db-pq: cast real to double
Diffstat (limited to 'ebus-racket')
-rw-r--r--ebus-racket/db-pq.rkt2
1 files changed, 1 insertions, 1 deletions
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"))