Skip to content

Commit

Permalink
version 4.0.1 - do not evaluate empty lines
Browse files Browse the repository at this point in the history
  • Loading branch information
viebel committed Nov 23, 2016
1 parent e85bc52 commit 43ddcd5
Show file tree
Hide file tree
Showing 5 changed files with 7 additions and 6 deletions.
2 changes: 1 addition & 1 deletion project.clj
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
(defproject klipse "4.0.0"
(defproject klipse "4.0.1"
:description "Cljs compiler in cljs"
:dependencies [[org.clojure/clojure "1.8.0"]
[org.clojure/clojurescript "1.9.293"]
Expand Down
2 changes: 1 addition & 1 deletion resources/public/index-dev.html
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@
</div>
<div id="compiler" style="height: 100%;"></div>
<script async defer id="github-bjs" src="https://buttons.github.io/buttons.js"></script>
<script src="dev/js/klipse.js?version=4.0.0"></script>
<script src="dev/js/klipse.js?version=4.0.1"></script>
<script>
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
Expand Down
1 change: 1 addition & 0 deletions src/klipse/cards/test/eval.cljs
Original file line number Diff line number Diff line change
Expand Up @@ -39,6 +39,7 @@
" (def x 12)
(+ x 5)" 17
"(+ 1 2)" 3
"(+ 1 2)\n\n \n" 3
"(if 1 2 3)" 2
"(map inc [1 2 3])" '(2 3 4)
"(defn append-cyclic[lst a]
Expand Down
2 changes: 1 addition & 1 deletion src/klipse/core.cljs
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@
(enable-console-print!)
(gadjett/settings! :max-function-calls 100)

(def version "4.0.0")
(def version "4.0.1")
(js/console.info "Klipse " version)
(js/console.info "Clojurescript " *clojurescript-version*)

6 changes: 3 additions & 3 deletions src/klipse/lang/clojure.cljs
Original file line number Diff line number Diff line change
Expand Up @@ -117,11 +117,11 @@
(put! c res))))
c))


(defn split-expressions [s]
(->> (p/parse-string-all s)
n/children
(map n/string)))
n/children
(map n/string)
(remove (partial re-matches #"\s*"))))

(defn core-eval [s opts]
(go
Expand Down

0 comments on commit 43ddcd5

Please sign in to comment.