Megatest

Check-in [7d2dde810d]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:fixed bad call
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.001
Files: files | file ages | folders
SHA1: 7d2dde810d4c95d8bcf293dd7ea09b5e5acb85d6
User & Date: matt on 2021-12-18 14:47:00
Other Links: branch diff | manifest | tags
Context
2021-12-18
17:53
fixed bad call check-in: 90f865fbd4 user: matt tags: v2.001
14:47
fixed bad call check-in: 7d2dde810d user: matt tags: v2.001
14:33
wip check-in: c74886dad6 user: matt tags: v2.001
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified rmtmod.scm from [4f98cc6cc5] to [bd4f6715fb].

︙
2230
2231
2232
2233
2234
2235
2236
2237

2238
2239
2240
2241
2242
2243
2244

2230
2231
2232
2233
2234
2235
2236

2237
2238
2239
2240
2241
2242
2243
2244








-
+








			(servdat-status-set! *server-info* 'have-interface-and-db)
			(let* ((serv-info (rmt:get-server-info *toppath* dbname)))
			  (match serv-info
			    ((host port servkey pid ipaddr apath dbpath)
			     (if (not (server-ready? host port servkey))
				 (begin
				   (debug:print-info 0 *default-log-port* "Server registered but not alive. Removing and trying again.")
				   (rmt:deregister-server remdat apath host port dbpath) ;; servkey pid ipaddr apath dbpath)
				   (rmt:deregister-server remdat apath host port servkey dbpath) ;; servkey pid ipaddr apath dbpath)
				   (loop (+ count 1) bad-sync-count start-time))))
			    (else
			     (debug:print 0 *default-log-port* "We are not the server for "dbname", exiting. Server info is: "serv-info)
			     (exit)))))))
	      (debug:print 0 *default-log-port*
			   "SERVER: running, db "dbname" opened, megatest version: "
			   (common:get-full-version))
︙

This page was generated in about 0.124s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00