diff options
| author | David Thompson <dthompson2@worcester.edu> | 2016-05-07 12:20:33 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2016-05-07 12:20:33 -0400 |
| commit | db574e3585622ea17b187f27eac5c4e030953e36 (patch) | |
| tree | b700aa9a57e2702c94c70d018ed857ce4e8144f3 | |
| parent | 55593075e50876ee9d98508687b0408effbcc8ef (diff) | |
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.
| -rw-r--r-- | sly/actor.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |