Megatest

Check-in [5c0b2c5dd4]
Login
Overview
Comment:Removed debug message
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.0001
Files: files | file ages | folders
SHA1: 5c0b2c5dd443756f178d20d70960d922021c4107
User & Date: mrwellan on 2022-01-27 18:46:07
Other Links: branch diff | manifest | tags
Context
2022-01-30
20:12
Added rmt:get-servers-info, removed remote logging, misc other tweaks. check-in: 52c2bf27f4 user: matt tags: v2.0001
2022-01-27
18:46
Removed debug message check-in: 5c0b2c5dd4 user: mrwellan tags: v2.0001
18:04
Put the exception handler back around the eval in configf. check-in: 8d37a1935c user: mrwellan tags: v2.0001
Changes

Modified configfmod.scm from [ae28cc9731] to [5ef016bb3e].

1059
1060
1061
1062
1063
1064
1065
1066

1067
1068
1069
1070
1071
1072
1073
1059
1060
1061
1062
1063
1064
1065

1066
1067
1068
1069
1070
1071
1072
1073







-
+







		(else `(#f ,(conc "cmd: " cmd " not recognised")))))))
    (match
     fullcmd
     (('eval-needed newres)
	 (if (or allow-system
		 (not (member cmdtype '("system" "shell" "sh"))))
	     (begin
	       (debug:print 0 *default-log-port* "eval: "newres)
	       ;; (debug:print 0 *default-log-port* "eval: "newres)
	       (with-input-from-string newres
		 (lambda ()
		   (set! result
			 (handle-exceptions
	       		  exn
	       		  (begin
	       		    (debug:print 0 *default-log-port* "WARNING: failed to process config input \"" l "\", eval-needed, newres="newres", exn="(condition->list exn))