Improve error handling for insert-missing-data-and-return-all-ids

This commit is contained in:
Christopher Baines 2019-09-05 13:53:51 +02:00
parent 2b5594e5d4
commit 4c67160b92

View file

@ -161,9 +161,11 @@
(symbol->string s))
((? string? s)
s)
((? null? s)
((? null? n)
;; exec-query-with-null-handling specifies NULL values as '()
'()))
n)
(unknown
(error (simple-format #f "normalise-values: error: ~A\n" unknown))))
data))
(let* ((existing-entries