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