remove stop-when abomination
This commit is contained in:
parent
3e1d4d108f
commit
d93dc085fe
|
@ -22,7 +22,6 @@
|
|||
define/query-value
|
||||
define/query-set
|
||||
define/query-hash
|
||||
stop-when
|
||||
;; endpoints
|
||||
assert on field
|
||||
;; expressions
|
||||
|
@ -432,17 +431,6 @@
|
|||
(set! x (hash-remove (ref x) e-key))
|
||||
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
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
Loading…
Reference in New Issue