syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove stop-when abomination

This commit is contained in:
Sam Caldwell 2019-05-30 13:37:34 -04:00
parent 3e1d4d108f
commit d93dc085fe
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/typed/roles.rkt
View File

@ -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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;