/usr/share/elk/apropos.scm is in elk 3.99.8-2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | ;;; -*-Scheme-*-
;;;
;;; apropos -- print matching symbols
(define apropos)
(let ((found))
(define (got-one sym)
(if (bound? sym)
(begin
(set! found #t)
(print sym))))
(set! apropos (lambda (what)
(if (symbol? what)
(set! what (symbol->string what))
(if (not (string? what))
(error 'apropos "string or symbol expected")))
(set! found #f)
(do ((tail (oblist) (cdr tail))) ((null? tail))
(do ((l (car tail) (cdr l))) ((null? l))
(if (substring? what (symbol->string (car l)))
(got-one (car l)))))
(if (not found)
(format #t "~a: nothing appropriate~%" what))
#v)))
|