Re: Debugging with PSD (trace)

[Bill Schottstaedt]

I think I found the problem: I needed to wrap the start-stack business
in "with-traps".  The following code works:

(defmacro with-trace (body)
  `(let* ((stderr (current-error-port))
          (snd-err (make-soft-port
                    (vector
                     (lambda (c) (snd-print c))
                     (lambda (s) (snd-print s))
                     (lambda () #f)
                     #f
                     (lambda () #f))
                    "w")))
     (dynamic-wind
      (lambda ()
        (set-current-error-port snd-err))
      (lambda ()
        (with-traps
         (lambda ()
           (start-stack 'repl-stack ,body))))
      (lambda ()
        (set-current-error-port stderr)))))