exception2.scm

(use-modules (sxml simple)
             (sxml match)
             (ice-9 exceptions))

(define (ciqual-table->sxml xml-file)
  (with-exception-handler
      (lambda (exn)
    (apply (lambda (key . value)
       (format #t "'not-existing-file':Aucun fichier ou dossier de ce type"))
           (exception-kind exn) (exception-args exn)))
    (lambda _
      (call-with-input-file xml-file
    (lambda (xml-port)
      (xml->sxml xml-port #:trim-whitespace? #t))))
    #:unwind? #t
    #:unwind-for-type 'system-error))

(define (ciqual-table->sxml no-existing-file)