Overview
| Comment: | Removed debug message |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
5c0b2c5dd443756f178d20d70960d922 |
| 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 |
(else `(#f ,(conc "cmd: " cmd " not recognised")))))))
(match
fullcmd
(('eval-needed newres)
(if (or allow-system
(not (member cmdtype '("system" "shell" "sh"))))
(begin
| | | 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)
(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))
|
| ︙ | ︙ |