dmbcs/mcron
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

main: Make 'catch-mcron-error' macro hygienic.

Browse source 
* scm/mcron/main.scm (catch-mcron-error): Use 'define-syntax-rule'
instead of 'defmacro'.
This commit is contained in:
Mathieu Lirzin 2015-08-15 00:05:22 +02:00
commit 2947d84101
1 changed files with 7 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

20
scm/mcron/main.scm
View file

@ -64,19 +64,13 @@ When COMMAND is not specified this uses the first element of (command-line)."
(when (and exit-code (not (eq? exit-code 0))) (when (and exit-code (not (eq? exit-code 0)))
(primitive-exit exit-code))) (primitive-exit exit-code)))
(define-syntax-rule (catch-mcron-error exp ...)
"Evaluate EXP .... if an 'mcron-error exception occurs, print its diagnostics
;; Code contributed by Sergey Poznyakoff. Execute body. If an 'mcron-error and exit with its error code."
;; exception occurs, print its diagnostics and exit with its error code. (catch 'mcron-error
(lambda () exp ...)
(defmacro catch-mcron-error (. body) (lambda (key exit-code . msg)
`(catch 'mcron-error (apply mcron-error exit-code msg))))
(lambda ()
,@body)
(lambda (key exit-code . msg)
(apply mcron-error exit-code msg))))
;; We will be doing a lot of testing of the command name, so it makes sense to ;; We will be doing a lot of testing of the command name, so it makes sense to
;; perform the string comparisons once and for all here. ;; perform the string comparisons once and for all here.