Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

warn when config fails to load

Browse source
This commit is contained in:
Alex Shinn 2019-01-06 08:19:43 +08:00
parent 5f80618544
commit c3189ebc9d
2 changed files with 18 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/config.scm
View file

@ -111,7 +111,11 @@
(else (lp (cdr ls) (cons (car ls) rev)))))) (else (lp (cdr ls) (cons (car ls) rev))))))
(define (read-from-file file . opt) (define (read-from-file file . opt)
(guard (exn (else (and (pair? opt) (car opt)))) (guard (exn
(else
(warn "couldn't load config:" file)
(print-stack-trace exn)
(and (pair? opt) (car opt))))
(call-with-input-file file read))) (call-with-input-file file read)))
(define (alist? x) (define (alist? x)

15
lib/chibi/config.sld
View file

@ -10,6 +10,17 @@
;; This is only used for config verification, it's acceptable to ;; This is only used for config verification, it's acceptable to
;; substitute file existence for the stronger directory check. ;; substitute file existence for the stronger directory check.
(cond-expand (cond-expand
(chibi (import (only (chibi filesystem) file-directory?))) (chibi
(else (begin (define file-directory? file-exists?)))) (import (only (meta) warn))
(import (only (chibi) print-stack-trace))
(import (only (chibi filesystem) file-directory?)))
(else
(begin
(define file-directory? file-exists?)
(define (print-stack-trace . o) #f)
(define (warn msg . args)
(let ((err (current-error-port)))
(display msg err)
(for-each (lambda (x) (display " " err) (write x err)) args)
(newline err))))))
(include "config.scm")) (include "config.scm"))