twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Improve error messages in processes

Browse Source
This commit is contained in:
Scott Richmond 2022-06-02 14:57:16 -04:00
parent 1123d82503
commit 2f5ebe85f7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ludus/interpreter.clj
View File

@ -518,7 +518,8 @@
status (:status process)] status (:status process)]
(when (not (= :dead status)) (when (not (= :dead status))
(swap! process-atom #(assoc % :queue (conj q msg))) (swap! process-atom #(assoc % :queue (conj q msg)))
;;(println "sent" msg "to" (:pid process)) (Thread/sleep 1) ;; this is terrible--but it avoids deadlock
;;TODO: actually debug this?
) )
msg)) msg))
@ -530,7 +531,9 @@
(future (future
(try (interpret-ast expr ctx) (try (interpret-ast expr ctx)
(catch Exception e (catch Exception e
(println "Panic in Ludus process" (str self ":") (ex-message e)))) (println "Panic in Ludus process" (str self ":") (ex-message e))
(pp/pprint (ex-data e))
(println "On line" (get-in (ex-data e) [:ast :token ::token/line]) "in" (resolve-word :file ctx))))
(swap! @process #(assoc % :status :dead)))) (swap! @process #(assoc % :status :dead))))
pid)) pid))