summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2021-09-16 14:19:41 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2021-09-16 14:19:41 +0900
commitdb93c0ac62580d971b99c0b7f62f8c6fdc00a8c4 (patch)
treea16b9e53d73f80851928ff19d9cd4df3b45921df
parent2c56c001ca259e6285124dc364ed2959b349c689 (diff)
Display result with pretty-print in system-apropos.
* vikalpa.scm (system-apropos): Display with pretty-print.
-rw-r--r--vikalpa.scm19
1 files 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)