exception1.scm

(use-modules (sxml simple)
             (sxml match))

(define (ciqual-table->sxml xml-file)
  (catch #t;'system-error
    (lambda ()
      (call-with-input-file xml-file
        (lambda (xml-port)
          (xml->sxml xml-port #:trim-whitespace? #t))))
    (lambda (key . parameters)
      (format #f "'not-existing-file': Aucun fichier ou dossier de ce type.\n"))))

(ciqual-table->sxml "not-existing-file")