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 (guard (exn
(else (else
(warn "couldn't load config:" file) (warn "couldn't load config:" file)
(print-exception exn)
(print-stack-trace exn) (print-stack-trace exn)
(and (pair? opt) (car opt)))) (and (pair? opt) (car opt))))
(call-with-input-file file read))) (call-with-input-file file read)))

3
lib/chibi/config.sld
View file

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