diff options
| author |  Tom Willemsen | 2012-12-27 03:03:24 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2012-12-27 03:03:24 +0100 |
| commit | 1b6badfcceb1a05c3576f2e5ce158036b0f5fbd0 (patch) | |
| tree | 045bb33a5c048a932244546fdeb0e50bf7052282 | |
| parent | 77c7dbaa9ae845b0795f4da33eb0d285f6b9d1c4 (diff) | |
| download | markam-1b6badfcceb1a05c3576f2e5ce158036b0f5fbd0.tar.gz markam-1b6badfcceb1a05c3576f2e5ce158036b0f5fbd0.zip | |
Guard against non-blob values of bookmark.date
| -rw-r--r-- | convert.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/convert.scm b/convert.scm index 3e905b5..cb38385 100644 --- a/convert.scm +++ b/convert.scm @@ -5,7 +5,9 @@ (require-library srfi-4) (define (blob->seconds blob) - (u32vector-ref (blob->u32vector blob) 0)) + (if (u32vector? blob) + (u32vector-ref (blob->u32vector blob) 0) + 0)) (define (convert-table db name converter #!optional select) (let ((count (first-result db (string-append "SELECT COUNT(*) FROM " name))) |