lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add #t/#f return value for apropos

This commit is contained in:
Lassi Kortela 2019-10-13 21:41:02 +03:00
parent 3e3ea1ca53
commit e9998e31f1
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme-core/system.scm
View File

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