Peter TB Brett <[email protected]> writes:
> Can anyone suggest a sensible way to support both? I haven't been able
> to figure out a good feature test... at the moment I've had to resort to
> passing #f. :-(
How about executing a fragment of Guile code that calls display-error,
and seeing if it throws an exception?
scheme@(guile-user)> (false-if-exception (begin (display-error (make-stack #t)
(current-output-port) "a" "b" '() '()) #t))
$2 = #f
scheme@(guile-user)> (false-if-exception (begin (display-error (stack-ref
(make-stack #t) 0) (current-output-port) "a" "b" '() '()) #t))
ERROR: In procedure make-stack:
ERROR: In procedure a: b
$3 = #t
Neil
