begin.java 526 B

1234567891011121314151617181920212223242526
  1. package kawa.standard;
  2. import kawa.lang.*;
  3. import gnu.expr.*;
  4. import gnu.lists.*;
  5. /**
  6. * Implement the re-writer for the "begin" primitive.
  7. * @author Per Bothner
  8. */
  9. public class begin extends Syntax
  10. {
  11. public static final begin begin = new begin();
  12. static { begin.setName("begin"); }
  13. public Expression rewrite (Object obj, Translator tr)
  14. {
  15. return tr.rewrite_body (obj);
  16. }
  17. @Override
  18. public void scanForm(Pair st, ScopeExp defs, Translator tr) {
  19. tr.scanBody(st.getCdr(), defs, false);
  20. }
  21. }