From b0987ec4e64855f0267132c787c9a051d5f89202 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Wed, 15 Sep 2021 20:25:04 +0900
Subject: Display (system-check system) with pretty-print.

---
 configure.ac | 2 +-
 guix.scm     | 2 +-
 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])
diff --git a/guix.scm b/guix.scm
index 9270da1..a888f66 100644
--- a/guix.scm
+++ b/guix.scm
@@ -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)
-- 
cgit v1.2.3