Megatest

Check-in [d1f991a5b4]
Login
Overview
Comment:typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63-xor-report
Files: files | file ages | folders
SHA1: d1f991a5b4abb3a6e657565193d5040439f0e25c
User & Date: bjbarcla on 2017-02-03 15:55:03
Other Links: branch diff | manifest | tags
Context
2017-02-03
15:55
merged xor report branch check-in: 4624119b74 user: bjbarcla tags: v1.63, v1.6306, 7a120e
15:55
typo Closed-Leaf check-in: d1f991a5b4 user: bjbarcla tags: v1.63-xor-report
15:48
caught up with v1.6306 check-in: 938f9d5e38 user: bjbarcla tags: v1.63-xor-report
Changes

Modified megatest.scm from [8ea0be9365] to [fcb342272b].

384
385
386
387
388
389
390
391

392
393
394
395
396
397
398
384
385
386
387
388
389
390

391
392
393
394
395
396
397
398







-
+







        (exit 1))))

    
(if (or (args:get-arg "-log")(args:get-arg "-server")) ;; redirect the log always when a server
    (let* ((tl   (or (args:get-arg "-log")(launch:setup)))   ;; run launch:setup if -server
	   (logf (or (args:get-arg "-log") ;; use -log unless we are a server, then craft a logfile name
		     (conc tl "/logs/server-" (current-process-id) "-" (get-host-name) ".log")))
	   (oup  (open-output-log logf)))
	   (oup  (open-logfile logf)))
      (if (not (args:get-arg "-log"))
	  (hash-table-set! args:arg-hash "-log" logf)) ;; fake out future queries of -log
      (debug:print-info 0 *default-log-port* "Sending log output to " logf)
      (set! *default-log-port* oup)))

(if (or (args:get-arg "-h")
	(args:get-arg "-help")