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

Using #f as a name doesn't override existing names.

This commit is contained in:
Tony Garnock-Jones 2016-01-27 20:53:37 -05:00
parent 03efb19a4d
commit bedd44aae5
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
prospect-monolithic/core.rkt
View File

@ -243,7 +243,9 @@
(syntax-rules ()
[(_ #:name name-exp behavior-exp initial-state-exp initial-action-tree-exp)
(spawn (lambda ()
(list (procedure-rename behavior-exp name-exp)
(list (let ((name name-exp)
(beh behavior-exp))
(if name (procedure-rename beh name) beh))
(transition initial-state-exp initial-action-tree-exp))))]
[(_ behavior-exp initial-state-exp initial-action-tree-exp)
(spawn (lambda ()

4
prospect/core.rkt
View File

@ -238,7 +238,9 @@
(syntax-rules ()
[(_ #:name name-exp behavior-exp initial-state-exp initial-action-tree-exp)
(spawn (lambda ()
(list (procedure-rename behavior-exp name-exp)
(list (let ((name name-exp)
(beh behavior-exp))
(if name (procedure-rename beh name) beh))
(transition initial-state-exp initial-action-tree-exp))))]
[(_ behavior-exp initial-state-exp initial-action-tree-exp)
(spawn (lambda ()