diff options
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))) |