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 | |
| parent | f8923416fee10225a2475897508744013c0b4497 (diff) | |
Display (system-check system) with pretty-print.v0.2.2
| -rw-r--r-- | configure.ac | 2 | ||||
| -rw-r--r-- | guix.scm | 2 | ||||
| -rw-r--r-- | vikalpa.scm | 5 |
3 files changed, 6 insertions, 3 deletions
diff --git a/configure.ac b/configure.ac index b9ba959..20e5422 100644 --- a/configure.ac +++ b/configure.ac @@ -1,4 +1,4 @@ -AC_INIT([vikalpa], [0.2.1]) +AC_INIT([vikalpa], [0.2.2]) AC_CONFIG_SRCDIR([vikalpa.scm]) AC_CONFIG_AUX_DIR([build-aux]) AM_INIT_AUTOMAKE([-Wall -Werror foreign]) @@ -29,7 +29,7 @@ (define guile-vikalpa (package (name "guile-vikalpa") - (version "0.2.1") + (version "0.2.2") (source (string-append (getcwd) "/vikalpa-" version ".tar.gz")) (build-system gnu-build-system) (native-inputs 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) |