wip81develop-202001

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