ryuslash/markam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Guard against non-blob values of bookmark.date

Browse source
This commit is contained in:
Tom Willemsen 2012-12-27 03:03:24 +01:00
parent 77c7dbaa9a
commit 1b6badfcce
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
convert.scm
View file

@ -5,7 +5,9 @@
(require-library srfi-4) (require-library srfi-4)
(define (blob->seconds blob) (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) (define (convert-table db name converter #!optional select)
(let ((count (first-result db (string-append "SELECT COUNT(*) FROM " name))) (let ((count (first-result db (string-append "SELECT COUNT(*) FROM " name)))