remove stop-when abomination
This commit is contained in:
parent
3e1d4d108f
commit
d93dc085fe
|
@ -22,7 +22,6 @@
|
||||||
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
|
||||||
|
@ -432,17 +431,6 @@
|
||||||
(set! x (hash-remove (ref x) e-key))
|
(set! x (hash-remove (ref x) e-key))
|
||||||
remove.expr))])
|
remove.expr))])
|
||||||
|
|
||||||
(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