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

List nothing instead of everything in (apropos-list "")

This commit is contained in:
Lassi Kortela 2019-08-28 18:13:14 +03:00
parent 05c43c716c
commit 2d89603691
2 changed files with 2659 additions and 2654 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5302
scheme-boot/boot_image.h
View File

File diff suppressed because it is too large Load Diff

7
scheme-core/system.scm
View File

@ -1106,10 +1106,13 @@
(cond ((string? key) key) (cond ((string? key) key)
((symbol? key) (symbol->string key)) ((symbol? key) (symbol->string key))
(else (error "Please give a string or symbol key")))))) (else (error "Please give a string or symbol key"))))))
(if (= 0 (string-length key))
'()
(sort (filter (λ (sym) (sort (filter (λ (sym)
(string.find (string-downcase (symbol->string sym)) key)) (string.find
(string-downcase (symbol->string sym)) key))
(environment)) (environment))
string<? symbol->string))) string<? symbol->string))))
(define (apropos . args) (define (apropos . args)
(for-each (λ (sym) (for-each (λ (sym)