stop-when derived form
This commit is contained in:
parent
c283dae7e4
commit
8cf13a9bbf
|
@ -22,6 +22,7 @@
|
||||||
define/query-value
|
define/query-value
|
||||||
define/query-set
|
define/query-set
|
||||||
define/query-hash
|
define/query-hash
|
||||||
|
stop-when
|
||||||
;; endpoints
|
;; endpoints
|
||||||
assert on field
|
assert on field
|
||||||
;; expressions
|
;; expressions
|
||||||
|
@ -338,6 +339,17 @@
|
||||||
(on (retracted p)
|
(on (retracted p)
|
||||||
(set! x (hash-remove (ref x) e-key))))])
|
(set! x (hash-remove (ref x) e-key))))])
|
||||||
|
|
||||||
|
(define-typed-syntax (stop-when E script ...) ≫
|
||||||
|
[[forged-name ≫ _ : FacetName] ⊢ forged-name ≫ forged-name-]
|
||||||
|
#:with forged-name (attach #'(#%app- syndicate:current-facet-id)
|
||||||
|
':
|
||||||
|
(type-eval #'FacetName))
|
||||||
|
----------------------------------------
|
||||||
|
[≻ (on E
|
||||||
|
(let ([x forged-name])
|
||||||
|
(stop x
|
||||||
|
script ...)))])
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Expressions
|
;; Expressions
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
Loading…
Reference in New Issue