Marketplace works with Racket 6.1.
This commit is contained in:
parent
d511d41040
commit
fc6e09d6d9
|
@ -18,7 +18,7 @@
|
||||||
(send-to-user* (process-debug-name p) (process-pid p) (e) failure-result enclosed-expr))
|
(send-to-user* (process-debug-name p) (process-pid p) (e) failure-result enclosed-expr))
|
||||||
|
|
||||||
(define-syntax-rule (send-to-user* debug-name pid (e) failure-result enclosed-expr)
|
(define-syntax-rule (send-to-user* debug-name pid (e) failure-result enclosed-expr)
|
||||||
(with-handlers ([exn:fail? (lambda: ([e : Reason])
|
(with-handlers ([reason? (lambda: ([e : Reason])
|
||||||
(if (exn? e)
|
(if (exn? e)
|
||||||
(marketplace-log 'error "Process ~v(~v):~n~a~n"
|
(marketplace-log 'error "Process ~v(~v):~n~a~n"
|
||||||
debug-name pid (exn-message e))
|
debug-name pid (exn-message e))
|
||||||
|
|
|
@ -9,7 +9,8 @@
|
||||||
[opaque Reason reason?])
|
[opaque Reason reason?])
|
||||||
|
|
||||||
(provide (all-defined-out)
|
(provide (all-defined-out)
|
||||||
(all-from-out "quasiqueue.rkt"))
|
(all-from-out "quasiqueue.rkt")
|
||||||
|
reason?)
|
||||||
|
|
||||||
;; This module uses different terminology to os2.rkt. From the paper:
|
;; This module uses different terminology to os2.rkt. From the paper:
|
||||||
;; "A role generalizes traditional notions of advertisement and
|
;; "A role generalizes traditional notions of advertisement and
|
||||||
|
|
Loading…
Reference in New Issue