mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-28 11:09:54 +00:00
Code Issues 1 Releases Wiki Activity

Make eval not the same as eval string.

Browse Source
This commit is contained in:
Calvin Rose 2018-12-05 20:48:29 -05:00
parent 89bd38890e
commit 97fade8197
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/core/core.janet
View File

@ -1238,7 +1238,7 @@ value, one key will be ignored."
(when tail (file/write stderr " (tailcall)"))
(file/write stderr "\n"))))
(defn eval
(defn eval-string
"Evaluates a string in the current environment. If more control over the
environment is needed, use run-context."
[str]
@ -1258,6 +1258,15 @@ value, one key will be ignored."
"eval")
returnval)
(defn eval
"Evaluates a form in the current environment. If more control over the
environment is needed, use run-context."
[form]
(def res (compile form *env* "eval"))
(if (= (type res) :function)
(res)
(error res:error)))
(do
(def syspath (or (os/getenv "JANET_PATH") "/usr/local/lib/janet/"))
(defglobal 'module/paths
@ -1288,6 +1297,7 @@ value, one key will be ignored."
(string/replace ".so" ".dll" x))))
(defn module/find
"Try to match a module or path name from the patterns in paths."
[path paths]
(def parts (string/split "/" path))
(def lastpart (get parts (- (length parts) 1)))