jcubic/lips

;; -----------------------------------------------------------------------------
;; init internal fs for LIPS Scheme Input/Output functions
;; -----------------------------------------------------------------------------
(let* ((fs (cond ((eq? self global) (require "fs"))
                 ((and (not (null? self.BrowserFS)) (indexed-db?))
                  (new Promise (lambda (resolve reject)
                                 (BrowserFS.configure
                                  &(:fs "IndexedDB"
                                        :options &())
                                  (lambda (e)
                                    (if (null? e)
                                        (resolve (BrowserFS.BFSRequire "fs"))
                                        (reject e)))))))
                 ((not (indexed-db?))
                  (console.warn (string-append "No FS found and IndexedDB "
                                               "is not available"))
                  '()))))
  (let ((internal (lips.env.get '**internal-env**)))
    (if (not (null? fs))
        (lips.set_fs fs))))