diff options
Diffstat (limited to 'tuplr.cpp')
| -rw-r--r-- | tuplr.cpp | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -160,7 +160,7 @@ initLang(PEnv& penv, TEnv& tenv) penv.reg(true, "cons", PEnv::Handler(parseCall<AConsCall>)); penv.reg(true, "car", PEnv::Handler(parseCall<ACarCall>)); penv.reg(true, "cdr", PEnv::Handler(parseCall<ACdrCall>)); - + // Numeric primitives penv.reg(true, "+", PEnv::Handler(parseCall<APrimitive>)); penv.reg(true, "-", PEnv::Handler(parseCall<APrimitive>)); @@ -228,12 +228,12 @@ main(int argc, char** argv) } int ret = 0; - + string output; map<string,string>::const_iterator a = args.find("-o"); if (a != args.end()) output = a->second; - + a = args.find("-p"); if (a != args.end()) { ifstream is(files.front().c_str()); @@ -251,7 +251,7 @@ main(int argc, char** argv) istringstream is(a->second); ret = eval(*cenv, "(command line)", is); } - + for (list<string>::iterator f = files.begin(); f != files.end(); ++f) { ifstream is(f->c_str()); if (is.good()) { @@ -265,7 +265,7 @@ main(int argc, char** argv) if (args.find("-r") != args.end() || (files.empty() && args.find("-e") == args.end())) ret = repl(*cenv); - + if (output != "") { ofstream os(output.c_str()); if (os.good()) { |