This commit is contained in:
@@ -144,9 +144,9 @@
|
||||
(sp/view :value)])))
|
||||
|
||||
(defn- timeout-snippet-promises [snippet-promises fut]
|
||||
;; Time out after eight seconds. With all the LaTeX and IPC, there
|
||||
;; Time out after twenty seconds. With all the LaTeX and IPC, there
|
||||
;; are so many opportunities for things to go wrong </3.
|
||||
(let [fut-res (deref fut (* 10 1000) ::timed-out)]
|
||||
(let [fut-res (deref fut (* 20 1000) ::timed-out)]
|
||||
(if (= fut-res ::timed-out)
|
||||
(do (future-cancel fut)
|
||||
(doseq [[_snippet p] snippet-promises]
|
||||
|
||||
Reference in New Issue
Block a user