diff options
Diffstat (limited to 'vikalpa.scm')
-rw-r--r-- | vikalpa.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/vikalpa.scm b/vikalpa.scm index 8f6b02a..e220641 100644 --- a/vikalpa.scm +++ b/vikalpa.scm @@ -46,6 +46,7 @@ #:use-module (ice-9 control) #:use-module (ice-9 exceptions) #:use-module (ice-9 regex) + #:use-module (ice-9 pretty-print) #:use-module ((srfi srfi-1) #:select (every any lset-union fold append-map find filter-map)) @@ -1179,7 +1180,9 @@ expr ... (current-system))) - (system-check (name)))))) + (let ((result (system-check (name)))) + (unless (null? result) + (pretty-print result))))))) (define (validate-function-name desc name) (define (err) |