diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2021-09-15 20:25:04 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2021-09-16 12:36:17 +0900 |
| commit | b0987ec4e64855f0267132c787c9a051d5f89202 (patch) | |
| tree | 04a3715d75a51ad334ea6c9b36b8d37c97c520f5 /vikalpa.scm | |
| parent | f8923416fee10225a2475897508744013c0b4497 (diff) | |
Display (system-check system) with pretty-print.v0.2.2
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) |