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

nested-vm -> spawn-vm

This commit is contained in:
Tony Garnock-Jones 2013-06-07 18:03:43 -04:00
parent e8a7c253dd
commit e755c473d1
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
marketplace/examples/chat-paper.rkt
View File

@ -1,7 +1,7 @@
#lang marketplace #lang marketplace
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(nested-vm (spawn-vm
(at-meta-level (at-meta-level
(observe-publishers (tcp-channel ? (tcp-listener 5999) ?) (observe-publishers (tcp-channel ? (tcp-listener 5999) ?)
(match-conversation (tcp-channel them us _) (match-conversation (tcp-channel them us _)

2
marketplace/examples/debug-chat.rkt
View File

@ -3,7 +3,7 @@
(require "../support/debug.rkt") (require "../support/debug.rkt")
(debug (debug
(nested-vm (spawn-vm
(at-meta-level (at-meta-level
(observe-publishers (tcp-channel ? (tcp-listener 5999) ?) (observe-publishers (tcp-channel ? (tcp-listener 5999) ?)
(match-conversation (tcp-channel them us _) (match-conversation (tcp-channel them us _)

4
marketplace/sugar-typed.rkt
View File

@ -28,7 +28,7 @@
name-process name-process
yield: yield:
at-meta-level: at-meta-level:
nested-vm: spawn-vm:
ground-vm:) ground-vm:)
;; A fresh unification variable, as identifier-syntax. ;; A fresh unification variable, as identifier-syntax.
@ -88,7 +88,7 @@
[(_ State preaction ...) [(_ State preaction ...)
#'(list ((inst core:at-meta-level State) preaction) ...)]))) #'(list ((inst core:at-meta-level State) preaction) ...)])))
(define-syntax nested-vm: (define-syntax spawn-vm:
(lambda (stx) (lambda (stx)
(syntax-parse stx (syntax-parse stx
[(_ (~literal :) ParentState [(_ (~literal :) ParentState

4
marketplace/sugar-untyped.rkt
View File

@ -26,7 +26,7 @@
name-process name-process
yield yield
at-meta-level at-meta-level
nested-vm spawn-vm
ground-vm) ground-vm)
(define-syntax-rule (transition/no-state action ...) (define-syntax-rule (transition/no-state action ...)
@ -70,7 +70,7 @@
[(cons preaction '()) (core:at-meta-level preaction)] [(cons preaction '()) (core:at-meta-level preaction)]
[_ (map core:at-meta-level preactions)])) [_ (map core:at-meta-level preactions)]))
(define-syntax nested-vm (define-syntax spawn-vm
(lambda (stx) (lambda (stx)
(syntax-parse stx (syntax-parse stx
[(_ (~or (~optional (~seq #:vm-pid vm-pid) #:defaults ([vm-pid #'p0]) [(_ (~or (~optional (~seq #:vm-pid vm-pid) #:defaults ([vm-pid #'p0])