Add #t/#f return value for apropos

scheme-core/system.scm

@@ -1126,14 +1126,17 @@
               string<? symbol->string))))
 
 (define (apropos . args)
-  (for-each (λ (sym)
+  (let ((syms (apply apropos-list args)))
-              (displayln
+    (and (not (null? syms))
-               (string-append
+         (for-each (λ (sym)
-                (let ((val (symbol-value sym)))
+                     (displayln
-                  (if (procedure? val) "procedure" "variable "))
+                      (string-append
-                "  "
+                       (let ((val (symbol-value sym)))
-                (symbol->string sym))))
+                         (if (procedure? val) "procedure" "variable "))
-            (apply apropos-list args)))
+                       "  "
+                       (symbol->string sym))))
+                   syms)
+         #t)))
 
 (define-macro (help . args)
   `(apply help* ',args))