From db93c0ac62580d971b99c0b7f62f8c6fdc00a8c4 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Thu, 16 Sep 2021 14:19:41 +0900 Subject: Display result with pretty-print in system-apropos. * vikalpa.scm (system-apropos): Display with pretty-print. --- vikalpa.scm | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/vikalpa.scm b/vikalpa.scm index 6bd6f87..96a2c17 100644 --- a/vikalpa.scm +++ b/vikalpa.scm @@ -1606,15 +1606,16 @@ (get-expression d))) (define* (system-apropos sys str) - (filter-map (lambda (d) - (let ((name (format #f "~a" (get-name d)))) - (if (string-match (string-append ".*" - (regexp-quote str) - ".*") - name) - (list (get-name d) (show d)) - #f))) - (get-definitions sys))) + (pretty-print + (filter-map (lambda (d) + (let ((name (format #f "~a" (get-name d)))) + (if (string-match (string-append ".*" + (regexp-quote str) + ".*") + name) + (list (get-name d) (show d)) + #f))) + (get-definitions sys)))) (define (system-check/guard) (filter-map (lambda (f) -- cgit v1.2.3