build: restore locked native binary build

ober

63433b6b120da818c6afbbb9cb16821ddd7ea546

diff --git a/dependency-lock.tsv b/dependency-lock.tsv
index c470908..850a913 100644
--- a/dependency-lock.tsv
+++ b/dependency-lock.tsv
@@ -1,2 +1,2 @@
 # name	url	commit	tree	path
-jsqlite	https://git.sr.ht/~lisp/jerboa-sqlite	63d737101b3b74bff3b9db75cc35f34bff6df0b7	79bfcf7a52d233076301c5cba9cd56d1b3e07ebf	vendor/jsqlite
+jsqlite	https://git.sr.ht/~lisp/jsqlite	63d737101b3b74bff3b9db75cc35f34bff6df0b7	79bfcf7a52d233076301c5cba9cd56d1b3e07ebf	vendor/jsqlite
diff --git a/src/secmon/stealth/integrity.ss b/src/secmon/stealth/integrity.ss
index 0a99ada..ef4d921 100644
--- a/src/secmon/stealth/integrity.ss
+++ b/src/secmon/stealth/integrity.ss
@@ -18,13 +18,13 @@
     (set-box! *code-hash* (hash-code-section)))
 
   (define (verify-integrity)
-    (let ([disk-ok (let ([h (hash-self-binary)])
+    (let ((disk-ok (let ((h (hash-self-binary)))
                      (or (not (unbox *disk-hash*))
-                         (and h (equal? h (unbox *disk-hash*)))))]
-          [code-ok (let ([h (hash-code-section)])
+                         (and h (equal? h (unbox *disk-hash*))))))
+          (code-ok (let ((h (hash-code-section)))
                      (or (not (unbox *code-hash*))
-                         (and h (equal? h (unbox *code-hash*)))))
-      (and disk-ok code-ok)
+                         (and h (equal? h (unbox *code-hash*)))))))
+      (and disk-ok code-ok)))
 
   ;; ── Helpers ──────────────────────────────────────────────────────
 
@@ -191,4 +191,4 @@
           (loop)))))
 
  ;; end library
-])))
+