diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2021-01-16 23:08:21 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2021-01-16 23:08:21 +0900 |
commit | 6bd6d3734621ce747ebf4b39496f87f0b0fdea01 (patch) | |
tree | 62ade352debd6dfb4c0ff09a8a1e18f00dc2a6ba /vikalpa.scm | |
parent | 3586ed9e429c37c0e3532a631f9644e7b7f3fe3a (diff) |
wip81develop-202001
Diffstat (limited to 'vikalpa.scm')
-rw-r--r-- | vikalpa.scm | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/vikalpa.scm b/vikalpa.scm index 3d5e3e5..8dedfb9 100644 --- a/vikalpa.scm +++ b/vikalpa.scm @@ -1553,17 +1553,13 @@ (get-variables d) (get-expression d))) -(define* (system-apropos sys - str - #:key all?) +(define* (system-apropos sys str) (filter-map (lambda (d) (let ((name (format #f "~a" (get-name d)))) - (if (and (or all? - (not (string-match "^%" name))) - (string-match (string-append ".*" - (regexp-quote str) - ".*") - name)) + (if (string-match (string-append ".*" + (regexp-quote str) + ".*") + name) (list (get-name d) (show d)) #f))) (get-definitions sys))) |