Permalink
Browse files

Prevent access to tryclojure.core.

  • Loading branch information...
Raynes committed Oct 29, 2011
1 parent bb30233 commit a4eaed851d3a312be1ca726836abb79267a29487
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/tryclojure/core.clj
View
@@ -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

0 comments on commit a4eaed8

Please sign in to comment.