summaryrefslogtreecommitdiff
path: root/lang/elisp/internals/signal.scm
diff options
context:
space:
mode:
Diffstat (limited to 'lang/elisp/internals/signal.scm')
-rw-r--r--lang/elisp/internals/signal.scm18
1 files changed, 0 insertions, 18 deletions
diff --git a/lang/elisp/internals/signal.scm b/lang/elisp/internals/signal.scm
deleted file mode 100644
index 09e2c05a6..000000000
--- a/lang/elisp/internals/signal.scm
+++ /dev/null
@@ -1,18 +0,0 @@
-(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)))