Megatest

Check-in [c44c180c40]
Login
Overview
Comment:fixed paren mismatch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-choosesync
Files: files | file ages | folders
SHA1: c44c180c4002c5b21e4460113e46123b93f1787b
User & Date: bjbarcla on 2019-06-14 10:52:04
Other Links: branch diff | manifest | tags
Context
2019-06-14
12:19
ensured nfs_mode and tmp_mode execute on each dbopen check-in: 56f4d2f160 user: bjbarcla tags: v1.65-choosesync
10:52
fixed paren mismatch check-in: c44c180c40 user: bjbarcla tags: v1.65-choosesync
10:49
enabled choice of syncer method from server/sync-method in config; brute-force-sync or delta-sync check-in: 85b79f3b43 user: bjbarcla tags: v1.65-choosesync
Changes

Modified common.scm from [057b8de7e8] to [9c0e4e970f].

934
935
936
937
938
939
940
941
942


943
944
945
946
947
948
949
934
935
936
937
938
939
940


941
942
943
944
945
946
947
948
949







-
-
+
+







                (cond
                 ((equal? syncer "brute-force-sync")
                  (server:writable-watchdog-bruteforce dbstruct))
                 ((equal? syncer "delta-sync")
                  (server:writable-watchdog-deltasync dbstruct))
                 (else
                  (debug:print-error 0 *default-log-port* "Unknown server/sync-method specified ("syncer") - valid values are brute-force-sync and delta-sync.")
                  (exit 1))
                 (debug:print 1 *default-log-port* "INFO: ["(common:human-time)"] Syncer started (method="syncer")")))))
                  (exit 1)))
                (debug:print 1 *default-log-port* "INFO: ["(common:human-time)"] Syncer started (method="syncer")"))))
	    (debug:print-info 13 *default-log-port* "watchdog done."))
	  (debug:print-info 13 *default-log-port* "no need for watchdog on non-homehost"))))


(define (std-exit-procedure)
  ;;(common:telemetry-log-close)
  (on-exit (lambda () 0))