;; test.scm
(include "~~lib/gambit#.scm") (include "~~lib/termite/termite#.scm") (load "~~lib/termite/termite")
(node-init node1)
(with-exception-catcher (lambda (exception) (raise exception)) (lambda () (spawn-link (lambda () (spawn-link (lambda () g)) (recv (_ #f)))) (?)))
$ gsi -:dar test.scm
*** ERROR IN "test2.scm"@7.1 -- This object was raised: #<termite-exception #2 origin: #<thread #3> reason: failure object: #<unbound-global-exception #4>>
(display-exception #4)
Unbound variable: handle-exception-message
I looked at the expansion and I guess the problem is that handle-exception-message is not "exported" by the termite namespace but maybe I'm missing something... Any ideas?
Afficher les réponses par date
Yes, you're right about exporting of handle-exception-message proc.
To solve this problem just add it to termite#.scm or replace its occurrences in recv.scm with termite##handle-exception-message.
Vasil
Jeremie Lasalle Ratelle wrote:
;; test.scm
(include "~~lib/gambit#.scm") (include "~~lib/termite/termite#.scm") (load "~~lib/termite/termite")
(node-init node1)
(with-exception-catcher (lambda (exception) (raise exception)) (lambda () (spawn-link (lambda () (spawn-link (lambda () g)) (recv (_ #f)))) (?)))
$ gsi -:dar test.scm
*** ERROR IN "test2.scm"@7.1 -- This object was raised: #<termite-exception #2 origin: #<thread #3> reason: failure object: #<unbound-global-exception #4>>
(display-exception #4)
Unbound variable: handle-exception-message
I looked at the expansion and I guess the problem is that handle-exception-message is not "exported" by the termite namespace but maybe I'm missing something... Any ideas? _______________________________________________ Gambit-list mailing list Gambit-list@iro.umontreal.ca https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list