01: package kawa.standard;
02:
03: import kawa.lang.*;
04: import gnu.expr.*;
05: import gnu.lists.*;
06:
07: public class module_compile_options extends Syntax {
08: public static final module_compile_options module_compile_options = new module_compile_options();
09: static {
10: module_compile_options.setName("module-compile-options");
11: }
12:
13: public boolean scanForDefinitions(Pair st, java.util.Vector forms,
14: ScopeExp defs, Translator tr) {
15: Object rest = with_compile_options.getOptions(st.cdr, null,
16: this , tr);
17: if (rest != LList.Empty)
18: tr.error('e', getName() + " key must be a keyword");
19: return true;
20: }
21:
22: public Expression rewriteForm(Pair form, Translator tr) {
23: return null;
24: }
25: }
|