syndicate-lang
/
racket-matrix-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

prefix-transition

This commit is contained in:
Tony Garnock-Jones 2012-05-09 16:24:16 -04:00
parent 7d515e4e58
commit 4f63b36c9d
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
indenting2.el
View File

@ -1,6 +1,6 @@
;; Emacs indent settings
(progn
(mapcar #'(lambda (x) (put x 'scheme-indent-function 1))
'(transition extend-transition))
'(transition extend-transition prefix-transition))
(mapcar #'(lambda (x) (put x 'scheme-indent-function 2))
'(role role/fresh yield)))

6
os2.rkt
View File

@ -21,6 +21,7 @@
(except-out (struct-out transition) transition)
(rename-out [make-transition transition])
extend-transition
prefix-transition
role
role/fresh
@ -212,6 +213,11 @@
[(transition state actions) (transition state (list actions more-actions))]
[state (transition state more-actions)]))
(define (prefix-transition t . more-actions)
(match t
[(transition state actions) (transition state (list more-actions actions))]
[state (transition state more-actions)]))
;;---------------------------------------------------------------------------
;; Topics and roles