mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-03 13:29:54 +00:00
Code Issues 1 Releases Wiki Activity

Fix some indentation problems.

Browse Source
This commit is contained in:
Calvin Rose 2019-03-12 20:56:16 -04:00
parent 2a5234b390
commit 31e2415bbb
2 changed files with 63 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/core/core.janet
View File

@ -882,8 +882,8 @@
(defn invert (defn invert
"Returns a table of where the keys of an associative data structure "Returns a table of where the keys of an associative data structure
are the values, and the values of the keys. If multiple keys have the same are the values, and the values of the keys. If multiple keys have the same
value, one key will be ignored." value, one key will be ignored."
[ds] [ds]
(def ret @{}) (def ret @{})
(loop [k :keys ds] (loop [k :keys ds]
@ -1637,7 +1637,8 @@ value, one key will be ignored."
(do (do
(def [fullpath mod-kind] (module/find path)) (def [fullpath mod-kind] (module/find path))
(unless fullpath (error mod-kind)) (unless fullpath (error mod-kind))
(def env (case mod-kind (def env
(case mod-kind
:source (do :source (do
# Normal janet module # Normal janet module
(def f (file/open fullpath)) (def f (file/open fullpath))
@ -1646,11 +1647,11 @@ value, one key will be ignored."
(defn chunks [buf _] (file/read f 2048 buf)) (defn chunks [buf _] (file/read f 2048 buf))
(defn bp [&opt x y] (defn bp [&opt x y]
(def ret (bad-parse x y)) (def ret (bad-parse x y))
(if exit-on-error (os/exit)) (if exit-on-error (os/exit 1))
ret) ret)
(defn bc [&opt x y z] (defn bc [&opt x y z]
(def ret (bad-compile x y z)) (def ret (bad-compile x y z))
(if exit-on-error (os/exit)) (if exit-on-error (os/exit 1))
ret) ret)
(run-context {:env newenv (run-context {:env newenv
:chunks chunks :chunks chunks