Browse files

No reason to use a let now.

  • Loading branch information...
1 parent a824ee8 commit 311441a55fc4c632ab12b8896294f19e75a02910 @Raynes Raynes committed Nov 8, 2011
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

0 comments on commit 311441a

Please sign in to comment.