excpetion printing

excpetion printing

[Matt Wette]

Is there any error I can throw in Guile that I don't catch myself
but will result in a user-friendly error message at the top?  Not this:

Throw to key `misc' with args `("read-yaml-file" "file not found: ~S" 
("demo1x.yml") #f)'.

Re: excpetion printing

[Matt Wette]

On 4/20/21 5:43 PM, Matt Wette wrote:
> Is there any error I can throw in Guile that I don't catch myself
> but will result in a user-friendly error message at the top?  Not this:
>
> Throw to key `misc' with args `("read-yaml-file" "file not found: ~S" 
> ("demo1x.yml") #f)'.
>
>
I did get this:
yaml.scm:37:4: In procedure read-yaml-file:
ERROR:
   1. &message: "read-yaml-file: can't access file:demo1x.yml

using guile 3.0 from
(cond-expand

  (guile-3
   (use-modules (ice-9 exceptions))
   (define (file-not-found filename)
     (raise-exception
      (make-exception-with-message
       (string-append "read-yaml-file: can't access file:"
              filename)))))
  (else
   (define (file-not-found filename)
     (scm-error 'misc "read-yaml-file"
            "file not found: ~S" (list filename) #f))))

Re: excpetion printing

[Ludovic Courtès]

Hi Matt,

Matt Wette <matt.wette@gmail.com> skribis:

> Is there any error I can throw in Guile that I don't catch myself
> but will result in a user-friendly error message at the top?  Not this:
>
> Throw to key `misc' with args `("read-yaml-file" "file not found: ~S"
> ("demo1x.yml") #f)'.

You can call ‘print-exception’ like so:

  (print-exception (current-error-port) frame key args)

This is using the pre-3.0 key+args exception style.

HTH,
Ludo’.