Permalink
Browse files

reload-module: spew stack trace when the exception is handled

Also don't load "errortrace" in freenode-main; doing clutters up the
stack trace
  • Loading branch information...
1 parent 979712b commit 2385ea843b0dc5cf93e78612cf83af85e379d3ff @offby1 committed Mar 29, 2012
Showing with 6 additions and 4 deletions.
  1. +1 −1 freenode-main.rkt
  2. +5 −3 reloadable.rkt
View
@@ -1,6 +1,6 @@
#! /bin/sh
#| Hey Emacs, this is -*-scheme-*- code!
-exec racket -l errortrace --require "$0" --main -- ${1+"$@"}
+exec racket --require "$0" --main -- ${1+"$@"}
|#
#lang racket
View
@@ -14,9 +14,11 @@
[compile-enforce-module-constants #f])
;; only notify, it's fine to reset the file timer, since there's no point
;; in attempting to reload it yet again until it is edited.
- (with-handlers ([exn? (lambda (e)
- (notifier "error, module not reloaded (~a)"
- (exn-message e)))])
+ (with-handlers ([exn?
+ (lambda (e)
+ (notifier "error, module not reloaded (~a)"
+ (exn-message e))
+ (notifier "~a~%" (continuation-mark-set->context (exn-continuation-marks e))))])
(namespace-require '(only scheme module #%top-interaction))
(load/use-compiled path)))))

0 comments on commit 2385ea8

Please sign in to comment.