  Scheme 9 from Empty Space , Unix Function Library
  By    , 2010 , 2018
; In the public domain
;
; (find-help-path)  ==>  string | #f
;
; Returns the directory in which the online help pages are stored
; of #F when the pages cannot be located.
;
; (Example): (find-help-path)  ==>  "/usr/local/share/s9fes/help"

(require-extension sys-unix)

(define (find-help-path)
  (let loop ((dirs *library-path*))
    (if (null? dirs)
        #f
        (let ((path (string-append (car dirs) "/help")))
          (if (and (file-exists? path)
                   (sys:stat-directory? path))
              path
              (loop (cdr dirs)))))))

 In the public domain

 (find-help-path)  ==>  string | #f

 Returns the directory in which the online help pages are stored
 of #F when the pages cannot be located.

 (Example): (find-help-path)  ==>  "/usr/local/share/s9fes/help"
  Scheme 9 from Empty Space , Unix Function Library
  By    , 2010 , 2018

(require-extension sys-unix)

(define (find-help-path)
  (let loop ((dirs *library-path*))
    (if (null? dirs)
        #f
        (let ((path (string-append (car dirs) "/help")))
          (if (and (file-exists? path)
                   (sys:stat-directory? path))
              path
              (loop (cdr dirs)))))))
