no message

original commit: 0499e63e194697f89da21e6bf795f6a3a8c56068
This commit is contained in:
Robby Findler 2001-04-09 03:25:21 +00:00
parent 15505d40e4
commit 85317e5400

View File

@ -1,6 +1,6 @@
(when (getenv "MREDDEBUG") (when (getenv "MREDDEBUG")
(current-load (let ([ol (current-load)]) (lambda (x) (printf "~a~n" x) (ol x)))) (current-load (let ([ol (current-load)]) (lambda (x) (printf "~a~n" x) (ol x))))
(eval '(require "errortrace.ss" "errortrace")) (eval '(require (lib "errortrace.ss" "errortrace")))
(error-print-width 180)) (error-print-width 180))
#| #|
TODO: TODO: