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

Adding repl-advise-exception, currently advising potential modules exporting unbound indentifiers.

Browse source
This commit is contained in:
Alex Shinn 2013-10-03 12:42:18 +09:00
parent 7004feed5e
commit 3b7a042d61
1 changed files with 31 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
lib/chibi/repl.scm
View file

@ -279,6 +279,24 @@
(define (string->sexp-list str) (define (string->sexp-list str)
(call-with-input-string str read/ss/all)) (call-with-input-string str read/ss/all))
;; Utility to provide additional help for common exceptions.
(define (repl-advise-exception exn out)
(cond
((and (exception? exn)
(equal? "undefined variable" (exception-message exn))
(pair? (exception-irritants exn)))
(let* ((name (car (exception-irritants exn)))
(mods (and (identifier? name)
(modules-exporting-identifier name))))
(cond
((pair? mods)
(display name out)
(display " is exported by:\n")
(for-each
(lambda (m)
(display " " out) (write m out) (newline out))
(sort (map car mods)))))))))
(define (repl/eval rp expr-list) (define (repl/eval rp expr-list)
(let ((out (repl-out rp))) (let ((out (repl-out rp)))
(protect (exn (else (print-exception exn out))) (protect (exn (else (print-exception exn out)))
@ -287,7 +305,10 @@
(lambda () (lambda ()
;; The inner protect in the child thread catches errors ;; The inner protect in the child thread catches errors
;; from eval. ;; from eval.
(protect (exn (else (print-exception exn out))) (protect (exn
(else
(print-exception exn out)
(repl-advise-exception exn (current-error-port))))
(for-each (for-each
(lambda (expr) (lambda (expr)
(call-with-values (lambda () (eval expr (repl-env rp))) (call-with-values (lambda () (eval expr (repl-env rp)))
@ -418,5 +439,12 @@
(lp rp))))))) (lp rp)))))))
;; Update the history file on completion. ;; Update the history file on completion.
(if (repl-history-file rp) (if (repl-history-file rp)
(call-with-output-file (repl-history-file rp) (protect
(lambda (out) (write (history->list (repl-history rp)) out)))))) (exn
(else
(let ((msg (integer->error-string)))
(display "couldn't save repl history: " (current-error-port))
(display msg (current-error-port))
(newline (current-error-port)))))
(call-with-output-file (repl-history-file rp)
(lambda (out) (write (history->list (repl-history rp)) out)))))))