Parent Directory | Revision Log | Patch
revision 1.1 by ossau, Fri Oct 26 16:42:43 2001 UTC | revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC | |
---|---|---|
# | Line 0 | Line 1 |
1 | (define-module (lang elisp internals signal) | |
2 | #:use-module (lang elisp internals format) | |
3 | #:export (signal | |
4 | error | |
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))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |