mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-07 20:42:54 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #551 from pepe/remove-redundant-do

Browse Source 
Remove redundant do
This commit is contained in:
Calvin Rose 2021-01-07 10:38:21 -06:00 committed by GitHub
commit daa37c22f5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/boot/boot.janet
View File

@ -3222,10 +3222,9 @@
(use-2 evaluator (tuple/slice source 1)) (use-2 evaluator (tuple/slice source 1))
# Import-like form # Import-like form
(importers head) (importers head)
(do (let [[l c] (tuple/sourcemap source)
(let [[l c] (tuple/sourcemap source) newtup (tuple/setmap (tuple ;source :evaluator evaluator) l c)]
newtup (tuple/setmap (tuple ;source :evaluator evaluator) l c)] ((compile newtup env where))))))
((compile newtup env where)))))))
(defn flycheck (defn flycheck
``Check a file for errors without running the file. Found errors will be printed to stderr ``Check a file for errors without running the file. Found errors will be printed to stderr