diff options
Diffstat (limited to 'tuplr.cpp')
| -rw-r--r-- | tuplr.cpp | 36 |
1 files changed, 18 insertions, 18 deletions
@@ -101,14 +101,14 @@ void initLang(PEnv& penv, TEnv& tenv) { // Types - tenv.def(penv.sym("Bool"), new AType(penv.sym("Bool"))); - tenv.def(penv.sym("Int"), new AType(penv.sym("Int"))); - tenv.def(penv.sym("Float"), new AType(penv.sym("Float"))); + tenv.def(penv.sym("Bool"), new AType(penv.sym("Bool"), Cursor())); + tenv.def(penv.sym("Int"), new AType(penv.sym("Int"), Cursor())); + tenv.def(penv.sym("Float"), new AType(penv.sym("Float"), Cursor())); // Literals static bool trueVal = true; static bool falseVal = false; - penv.reg(false, "#t", PEnv::Handler(parseLiteral<bool>, &trueVal)); + penv.reg(false, "#t", PEnv::Handler(parseLiteral<bool>, &trueVal)); penv.reg(false, "#f", PEnv::Handler(parseLiteral<bool>, &falseVal)); // Special forms @@ -120,20 +120,20 @@ initLang(PEnv& penv, TEnv& tenv) penv.reg(true, "cdr", PEnv::Handler(parseCall<ASTCdrCall>)); // Numeric primitives - penv.reg(true, "+", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "-", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "*", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "/", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "%", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "&", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "|", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "^", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "=", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "!=", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, ">", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, ">=", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "<", PEnv::Handler(parseCall<ASTPrimitive>)); - penv.reg(true, "<=", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "+", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "-", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "*", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "/", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "%", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "and", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "or", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "xor", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "=", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "!=", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, ">", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, ">=", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "<", PEnv::Handler(parseCall<ASTPrimitive>)); + penv.reg(true, "<=", PEnv::Handler(parseCall<ASTPrimitive>)); } |