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

also print error

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

1
lib/chibi/config.scm
View file

@ -114,6 +114,7 @@
(guard (exn
(else
(warn "couldn't load config:" file)
(print-exception exn)
(print-stack-trace exn)
(and (pair? opt) (car opt))))
(call-with-input-file file read)))

3
lib/chibi/config.sld
View file

@ -12,11 +12,12 @@
(cond-expand
(chibi
(import (only (meta) warn))
(import (only (chibi) print-stack-trace))
(import (only (chibi) print-exception print-stack-trace))
(import (only (chibi filesystem) file-directory?)))
(else
(begin
(define file-directory? file-exists?)
(define (print-exception exn) (write exn))
(define (print-stack-trace . o) #f)
(define (warn msg . args)
(let ((err (current-error-port)))