when starting load only stdlib.lsp file, fix executable name in -v
later function for loading other files from mlisp dir will be added
This commit is contained in:
parent
af9211a1a0
commit
7cc938fc7c
4
ml.h
4
ml.h
|
|
@ -7,14 +7,14 @@
|
||||||
#include <sstream>
|
#include <sstream>
|
||||||
#include <exception>
|
#include <exception>
|
||||||
|
|
||||||
const std::string VERSION = "mi 0.1 (" __DATE__ " " __TIME__ ")";
|
const std::string VERSION = "ml 0.1 (" __DATE__ " " __TIME__ ")";
|
||||||
|
|
||||||
const std::string STDLIB_LOADER =
|
const std::string STDLIB_LOADER =
|
||||||
R"(
|
R"(
|
||||||
(do (define ___lib_path "/usr/local/var/mlisp")
|
(do (define ___lib_path "/usr/local/var/mlisp")
|
||||||
(if (is-dir? ___lib_path)
|
(if (is-dir? ___lib_path)
|
||||||
(for file (ls-dir ___lib_path)
|
(for file (ls-dir ___lib_path)
|
||||||
(if (string-regex? file "^.*\.l(i)?sp$")
|
(if (string-regex? file "^stdlib\.lsp$")
|
||||||
(include (+ ___lib_path "/" file)))
|
(include (+ ___lib_path "/" file)))
|
||||||
)))
|
)))
|
||||||
)";
|
)";
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue