- ;; cut down to the signal handler. note that this will only
- ;; work if statprof.scm is compiled; otherwise we get
- ;; `eval' on the stack instead, because if it's not
- ;; compiled, profile-signal-handler is a thunk that
- ;; tail-calls eval. perhaps we should always compile the
- ;; signal handler instead...
- (stack (or (make-stack #t profile-signal-handler)
+ ;; Cut down to the signal handler. Note that this will only
+ ;; work if statprof.scm is compiled; otherwise we get `eval'
+ ;; on the stack instead, because if it's not compiled,
+ ;; profile-signal-handler is a thunk that tail-calls eval.
+ ;; Perhaps we should always compile the signal handler
+ ;; instead.
+ (stack (or (make-stack #t profile-signal-handler (outer-cut state))