Commit 82c71b57 authored by dave griffiths's avatar dave griffiths
Browse files

sync tests complete (raspberry pi)

parent 5db9fb68
......@@ -127,7 +127,6 @@
(define (entity-versions db table)
(let ((s (db-select
db (string-append "select unique_id, version from " table "_entity;"))))
(msg s)
(if (null? s)
......@@ -26,7 +26,7 @@
((boolean? v) (if v "#t" "#f"))
((list? v)
((null? v) "'()")
((null? v) "()")
(list->txt v))))
(else (printf "scheme->txt, unsupported type for ~a~n" v) 0)))
......@@ -108,7 +108,7 @@
(string->number dirty)
(string->number version) data)))))))
(string->number version) (dbg data))))))))
;; returns a table of all entities and their corresponding versions
......@@ -156,13 +156,13 @@
(req 'file-list '())
(lambda ()
(lambda (req)
(lambda ()
(msg "file-list")
(dbg (directory-list "./htdocs/files/"))))))))
(dbg (scheme->txt
(map path->string (directory-list "files/")))))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment