guile18/lang/elisp/internals/signal.scm

   1 (define-module (lang elisp internals signal)
   2   #:use-module (lang elisp internals format)
   3   #:replace (error)
   4   #:export (signal
   5             wta))
   6
   7 (define (signal error-symbol data)
   8   (scm-error 'elisp-signal
   9              #f
  10              "Signalling ~A with data ~S"
  11              (list error-symbol data)
  12              #f))
  13
  14 (define (error . args)
  15   (signal 'error (list (apply format args))))
  16
  17 (define (wta expected actual pos)
  18   (signal 'wrong-type-argument (list expected actual)))