Index: dbmod.scm ================================================================== --- dbmod.scm +++ dbmod.scm @@ -224,12 +224,13 @@ (if *sync-in-progress* (debug:print 3 *default-log-port* "WARNING: overlapping calls to sync to disk") (begin (mutex-lock! *db-with-db-mutex*) ;; this mutex is used when overloaded or during a query that modifies the db (set! *sync-in-progress* #t) - (dbmod:sync-gasket tables last-update inmem db - dbfullname syncdir) + #;(dbmod:sync-gasket tables last-update inmem db + dbfullname syncdir) + (system (conc "megatest -db2db -from "tmpdb" -to "dbfname"&")) (mutex-unlock! *db-with-db-mutex*) (thread-sleep! 0.5) ;; ensure at least 1/2 second down time between sync calls (set! *sync-in-progress* #f))))) ;; (dbmod:sync-tables tables #f db inmem) ;; (if db Index: transport-mode.scm.template ================================================================== --- transport-mode.scm.template +++ transport-mode.scm.template @@ -13,10 +13,10 @@ ;; (dbfile:sync-method 'none) ;; (dbfile:cache-method 'none) ;; (rmt:transport-mode 'nfs) ;; uncomment this block to test with tcp and inmem -(dbfile:sync-method 'original) ;; attach) -(dbfile:cache-method 'inmem) +(dbfile:sync-method 'attach) ;; 'original) ;; attach) +(dbfile:cache-method 'tmp) ;; 'inmem) (rmt:transport-mode 'tcp)