From bedd44aae50edbc83531b904c66adde33063d538 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 27 Jan 2016 20:53:37 -0500 Subject: [PATCH] Using #f as a name doesn't override existing names. --- prospect-monolithic/core.rkt | 4 +++- prospect/core.rkt | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/prospect-monolithic/core.rkt b/prospect-monolithic/core.rkt index 05aeac2..7cacd58 100644 --- a/prospect-monolithic/core.rkt +++ b/prospect-monolithic/core.rkt @@ -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 () diff --git a/prospect/core.rkt b/prospect/core.rkt index 4266391..49ef0b2 100644 --- a/prospect/core.rkt +++ b/prospect/core.rkt @@ -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 ()