From db574e3585622ea17b187f27eac5c4e030953e36 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 7 May 2016 12:20:33 -0400 Subject: actor: Fix action-effect-lift. We were clobbering the effects list every time, rather than consing. * sly/actor.scm (action-effect-lift): Cons not clobber. --- sly/actor.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/sly/actor.scm b/sly/actor.scm index b63a66d..0b1c087 100644 --- a/sly/actor.scm +++ b/sly/actor.scm @@ -125,7 +125,8 @@ as an effect on the world, and do not change the actor itself." (lambda args (lambda (world effects object) (values #f - (list (lambda (world) (apply proc world object args))) + (cons (lambda (world) (apply proc world object args)) + effects) object)))) (define (idle world effects object) -- cgit v1.2.3