Parent Directory | Revision Log | Patch
revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC | revision 1.3 by camm, Mon Aug 5 20:36:08 2002 UTC | |
---|---|---|
# | Line 404 | Line 404 |
404 | (wt-label label))) | (wt-label label))) |
405 | ||
406 | (if (eq default 't) | (if (eq default 't) |
407 | (progn (wt-nl "FEerror(\"The ECASE key value ~s is illegal.\",1,V" cvar ");")(c2expr (cdr (first clauses)))) | (progn (wt-nl "FEerror(\"The ECASE key value ~s is illegal.\",1,V" cvar ");") |
408 | (unwind-exit nil 'jump)) | |
409 | (c2expr default)) | (c2expr default)) |
410 | ||
411 | (wt "}") | (wt "}") |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |