diff options
Diffstat (limited to 'lang/elisp/internals/signal.scm')
-rw-r--r-- | lang/elisp/internals/signal.scm | 18 |
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))) |