gered/clj-rhino
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add version of call-timeout that doesn't convert args

Browse source 
call-timeout-raw, it's your job to convert them
This commit is contained in:
Mariano Guerra 2013-02-11 11:07:44 +01:00
parent 762853acce
commit 0dc976913c
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/clj/clj_rhino.clj
View file

@ -146,6 +146,14 @@
(.evaluateString ctx scope code filename line-number sec-domain)
(finally (Context/exit)))))
(defn call-timeout-raw [scope fun timeout-ms & args]
(let [factory (TimedContextFactory. timeout-ms)
ctx (.enterContext factory)
args (into-array Object args)]
(try
(.call fun ctx scope nil args)
(finally (Context/exit)))))
(defn call-timeout [scope fun timeout-ms & args]
(let [factory (TimedContextFactory. timeout-ms)
ctx (.enterContext factory)