avoid traps in repl except when evaluating the expression
authorAndy Wingo <wingo@pobox.com>
Thu, 23 Sep 2010 11:45:15 +0000 (13:45 +0200)
committerAndy Wingo <wingo@pobox.com>
Thu, 23 Sep 2010 11:45:23 +0000 (13:45 +0200)
commitb0e556d4d0d9fc6b33952f965697e370d3d4fbef
treea8f251089ee158024a68199df2f76b6ff2e98c24
parent8dde88e0d64ae39e3f829031cd6cc137f13a1729
avoid traps in repl except when evaluating the expression

* module/system/vm/trap-state.scm (with-default-trap-handler): Don't
  enable traps if we are setting a handler of #f.

* module/system/repl/error-handling.scm (call-with-error-handling): Add
  #:trap-handler arg.

* module/system/repl/repl.scm (run-repl): Only have traps enabled while
  running the thunk. Otherwise we trace on procedures called as part of
  the repl.
module/system/repl/error-handling.scm
module/system/repl/repl.scm
module/system/vm/trap-state.scm