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