529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
|
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
|
-
+
|
;;
;; NOPE: apply this same approach to all db files
;;
(else ;; ((equal? fname "megatest.db") ;; this file can be regenerated if needed
(handle-exceptions
exn
(begin
(db:move-and-recreate-db dbdat)
;; (db:move-and-recreate-db dbdat)
(if (> numtries 0)
(db:repair-db dbdat numtries: (- numtries 1))
#f)
(debug:print 0 "FATAL: file " dbpath " was found corrupted, an attempt to fix has been made but you must start over.")
(debug:print 0
" check the following:\n"
" 1. full directories, look in ~/ /tmp and " dbdir "\n"
|