Remove unneeded #:capture-projection argument to term->skeleton-interest
This commit is contained in:
parent
40ee3b4ca7
commit
a86478b7b9
|
@ -74,13 +74,14 @@
|
|||
;; (log-info "~a (asserted (observe (inbound ~v)))" inner-actor x)
|
||||
(with-current-facet [outer-facet]
|
||||
(with-non-script-context
|
||||
(define outer-capture-proj (term->capture-proj x))
|
||||
(define inner-capture-proj (map (lambda (p) (cons 0 p)) outer-capture-proj))
|
||||
;; ^ inner-capture-proj accounts for the extra (inbound ...) layer around assertions
|
||||
(define i
|
||||
(let ((inner-capture-proj
|
||||
;; inner-capture-proj accounts for the extra (inbound ...) layer around
|
||||
;; assertions
|
||||
(let ((outer-capture-proj (term->capture-proj x)))
|
||||
(map (lambda (p) (cons 0 p)) outer-capture-proj))))
|
||||
(term->skeleton-interest
|
||||
x
|
||||
#:capture-projection outer-capture-proj
|
||||
(lambda (op . captured-values)
|
||||
(define assertion
|
||||
(instantiate-term->value (inbound x) captured-values
|
||||
|
@ -105,7 +106,7 @@
|
|||
(values (instantiate-term->value (inbound x) captured-values
|
||||
#:visibility-restriction-proj inner-capture-proj)
|
||||
-1)))
|
||||
(schedule-inner!))))
|
||||
(schedule-inner!)))))
|
||||
(add-endpoint-if-live! outer-facet
|
||||
inbound-endpoints
|
||||
x
|
||||
|
|
|
@ -15,14 +15,11 @@
|
|||
(require "pattern.rkt")
|
||||
(require "skeleton.rkt")
|
||||
|
||||
(define (term->skeleton-interest x
|
||||
#:capture-projection [capture-proj (term->capture-proj x)]
|
||||
handler
|
||||
#:cleanup [cleanup #f])
|
||||
(define (term->skeleton-interest x handler #:cleanup [cleanup #f])
|
||||
(skeleton-interest (term->skeleton x)
|
||||
(term->skeleton-proj x)
|
||||
(term->key x)
|
||||
capture-proj
|
||||
(term->capture-proj x)
|
||||
handler
|
||||
cleanup))
|
||||
|
||||
|
|
Loading…
Reference in New Issue