vaclavt
/
mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

include path changes

This commit is contained in:
VaclavT 2021-02-26 09:49:01 +01:00
parent 25e5f85167
commit f7992b1eab
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ml.cpp
View File

@ -4,9 +4,9 @@
#include "ml_date.h" #include "ml_date.h"
#include "ml_string.h" #include "ml_string.h"
#include "csvparser.h" #include "clib/csvparser.h"
#include "sslclient.h" #include "clib/sslclient.h"
#include "json11.h" #include "clib/json11.h"
#include <cmath> #include <cmath>
@ -1519,6 +1519,8 @@ namespace builtin {
return MlValue::string(args[0].debug()); return MlValue::string(args[0].debug());
} }
// >>> (map (lambda (x) (+ x 10)) '(1 2 3 4 5 6))
// => (11 12 13 14 15 16)
MlValue map_list(std::vector<MlValue> args, MlEnvironment &env) { MlValue map_list(std::vector<MlValue> args, MlEnvironment &env) {
eval_args(args, env); eval_args(args, env);
@ -1751,6 +1753,8 @@ int main(int argc, const char **argv) {
srand(time(NULL)); srand(time(NULL));
try { try {
load_std_lib(env); load_std_lib(env);
// for xcode profiling
// run(read_file_contents("/Users/vaclavt/Development/mlisp/tests/test.lsp"), env);
if (argc == 1 || (argc == 2 && std::string(argv[1]) == "-i")) if (argc == 1 || (argc == 2 && std::string(argv[1]) == "-i"))
repl(env); repl(env);
@ -1767,4 +1771,3 @@ int main(int argc, const char **argv) {
return 0; return 0;
} }

2
ml_io.h
View File

@ -1,6 +1,6 @@
#pragma once #pragma once
#include "../ml.h" #include "ml.h"
#include <string> #include <string>
#include <vector> #include <vector>