KickJava   Java API By Example, From Geeks To Geeks.

Java > Open Source Codes > gnu > commonlisp > lang > UnwindProtect


1 package gnu.commonlisp.lang;
2 import kawa.lang.*;
3 import gnu.expr.Expression;
4 import gnu.expr.TryExp;
5 import gnu.lists.Pair;
6
7 public class UnwindProtect extends Syntax
8 {
9   public Expression rewrite (Object JavaDoc obj, Translator tr)
10   {
11     if (! (obj instanceof Pair))
12       return tr.syntaxError("invalid syntax for unwind-protect");
13     Pair pair = (Pair) obj;
14     return new TryExp(tr.rewrite(pair.car), tr.rewrite_body(pair.cdr));
15   }
16 }
17
Popular Tags