mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-15 14:57:22 +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
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
"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
value, one key will be ignored."
are the values, and the values of the keys. If multiple keys have the same
value, one key will be ignored."
[ds]
(def ret @{})
(loop [k :keys ds]
@@ -1637,7 +1637,8 @@ value, one key will be ignored."
(do
(def [fullpath mod-kind] (module/find path))
(unless fullpath (error mod-kind))
(def env (case mod-kind
(def env
(case mod-kind
:source (do
# Normal janet module
(def f (file/open fullpath))
@@ -1646,11 +1647,11 @@ value, one key will be ignored."
(defn chunks [buf _] (file/read f 2048 buf))
(defn bp [&opt x y]
(def ret (bad-parse x y))
(if exit-on-error (os/exit))
(if exit-on-error (os/exit 1))
ret)
(defn bc [&opt x y z]
(def ret (bad-compile x y z))
(if exit-on-error (os/exit))
(if exit-on-error (os/exit 1))
ret)
(run-context {:env newenv
:chunks chunks