diff options
-rw-r--r-- | vikalpa.scm | 19 |
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) |