Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Prevent access to tryclojure.core.

  • Loading branch information...
commit a4eaed851d3a312be1ca726836abb79267a29487 1 parent bb30233
@Raynes authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/tryclojure/core.clj
View
6 src/tryclojure/core.clj
@@ -101,11 +101,15 @@
(def sandboxes (atom {:counter 0}))
+(def try-clojure-tester
+ (into secure-tester-without-def
+ #{'tryclojure.core}))
+
(defn add-user [old]
(let [count (inc (:counter old))]
(assoc old
:counter count
- count (sandbox secure-tester-without-def :timeout 2000))))
+ count (sandbox try-clojure-tester :timeout 2000))))
(defn eval-request [expr]
(try
Please sign in to comment.
Something went wrong with that request. Please try again.