diff --git a/modules/ordo.scm b/modules/ordo.scm index f68a2ff..06b70ab 100644 --- a/modules/ordo.scm +++ b/modules/ordo.scm @@ -117,7 +117,7 @@ variable (in that order). Raise an exception if the variable is not found." (define-method (perform (a ) (c )) (when (check-tags (act-tags a)) (if (not (check-condition a c)) - (log-msg 'NOTICE "Skipping act " (act-name a) " (precondition not met") + (log-msg 'NOTICE "Skipping act " (act-name a) " (precondition not met)") (begin (log-msg 'NOTICE "Performing act " (act-name a)) (dynamic-wind