guile-examples/shell/guile-shell/exceptions.scm

(library (exceptions)
  (export make-not-yet-implemented-exception)
  (import (except (rnrs base) error map)
          (only (guile)
                lambda* λ
                record-constructor)
          (ice-9 exceptions))

  (define make-not-yet-implemented-exception
    (record-constructor
     (make-exception-type '&not-yet-implemented
                          &programming-error
                          '(message)))))