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

`current-action-transformer`

This commit is contained in:
Tony Garnock-Jones 2016-11-29 10:19:52 +13:00
parent 05c57ec05d
commit f638923c6f
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/syndicate/actor.rkt
View File

@ -59,6 +59,7 @@
;;
current-action-transformer
schedule-action!
schedule-actions!
actor-action
@ -250,6 +251,9 @@
;; Parameterof Boolean
(define in-script? (make-parameter #f))
;; Parameterof (Action -> Action)
(define current-action-transformer (make-parameter values))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Syntax; main entry points
@ -930,7 +934,8 @@
(when (patch-non-empty? ac)
(current-pending-patch (compose-patch ac (current-pending-patch))))
(begin (flush-pending-patch!)
(current-pending-actions (list (current-pending-actions) ac)))))
(current-pending-actions (list (current-pending-actions)
((current-action-transformer) ac))))))
(define (schedule-actions! . acs)
(for [(ac (core:clean-actions acs))] (schedule-action! ac)))
@ -939,7 +944,8 @@
(define p (current-pending-patch))
(when (patch-non-empty? p)
(current-pending-patch patch-empty)
(current-pending-actions (list (current-pending-actions) p))))
(current-pending-actions (list (current-pending-actions)
((current-action-transformer) p)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Endpoint Creation