Re: excpetion printing

[Matt Wette <matt.wette@gmail.com>]

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))))