Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

No reason to use a let now.

  • Loading branch information...
commit 311441a55fc4c632ab12b8896294f19e75a02910 1 parent a824ee8
@Raynes Raynes authored
Showing with 8 additions and 9 deletions.
  1. +8 −9 src/clojail/core.clj
View
17 src/clojail/core.clj
@@ -252,15 +252,14 @@
old-defs (user-defs nspace)]
(when jvm (set-security-manager (SecurityManager.)))
(try
- (let [result (if-let [problem (check-form code tester nspace)]
- (security-exception problem)
- (thunk-timeout
- (evaluator code tester-str context nspace bindings)
- timeout
- :ms
- transform
- (ThreadGroup. "sandbox")))]
- result)
+ (if-let [problem (check-form code tester nspace)]
+ (security-exception problem)
+ (thunk-timeout
+ (evaluator code tester-str context nspace bindings)
+ timeout
+ :ms
+ transform
+ (ThreadGroup. "sandbox")))
(finally (wipe-defs init-defs old-defs max-defs nspace))))))))
(defn sandbox
Please sign in to comment.
Something went wrong with that request. Please try again.