Differences From Artifact [9c4acffaac]:
- File db.scm — part of check-in [62feb767c9] at 2013-11-11 22:54:42 on branch trunk — Massive refactor now about 50% done (user: matt, size: 100653) [annotate] [blame] [check-ins using]
To Artifact [38f86aa7ed]:
- File db.scm — part of check-in [0d1bbbe707] at 2013-11-11 23:29:54 on branch trunk — First milestone. list-runs fully functional (user: matt, size: 100655) [annotate] [blame] [check-ins using]
︙ | |||
126 127 128 129 130 131 132 | 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 | - + - + | (let ((curr-tmdat #f)) (sqlite3:for-each-row (lambda (a . b) (set! curr-tmdat (apply vector a b))) tmgetstmt testm-id) (if (not (equal? curr-tmdat tmdat)) ;; something changed (begin |
︙ |