Posted by Anonymous Sat 24th Feb 2007 17:15 - Syntax is Scheme - 16 views
Download | New Post | Modify | Hide line numbers
Download | New Post | Modify | Hide line numbers
-
(define-syntax define-state
-
(syntax-rules ()
-
((_ n (m t) ...)
-
(begin
-
(define (n x)
-
(case x
-
((m) t)
-
...
-
(else
-
name)))))))
-
-
-
(define-state start
-
(on idle))
-
-
(define-state idle
-
(play play)
-
(off start))
-
-
(define-state play
-
(stop idle)
-
(off start))
PermaLink to this entry https://pastebin.co.uk/10878
Posted by Anonymous Sat 24th Feb 2007 17:15 - Syntax is Scheme - 16 views
Download | New Post | Modify | Hide line numbers
Download | New Post | Modify | Hide line numbers
Comments: 0