summaryrefslogtreecommitdiff
path: root/lang/elisp/internals/signal.scm
blob: 09e2c05a67c0818eb8de6f5c145dbfe0328a7399 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(define-module (lang elisp internals signal)
  #:use-module (lang elisp internals format)
  #:export (signal
	    error
	    wta))

(define (signal error-symbol data)
  (scm-error 'elisp-signal
	     #f
	     "Signalling ~A with data ~S"
	     (list error-symbol data)
	     #f))

(define (error . args)
  (signal 'error (list (apply format args))))

(define (wta expected actual pos)
  (signal 'wrong-type-argument (list expected actual)))