/[guile]/guile/guile-core/lang/elisp/internals/signal.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/internals/signal.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26