diff options
| -rw-r--r-- | sly/actor.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sly/actor.scm b/sly/actor.scm index 5b6d7e3..90803e7 100644 --- a/sly/actor.scm +++ b/sly/actor.scm @@ -133,9 +133,9 @@ to perform." (if next (let-values (((next* new-effects* new-object*) (b world new-effects new-object))) - (if next* - (values (both next next*) new-effects* new-object*) - (values next new-effects new-object*))) + (values (if next* (both next next*) next) + new-effects* + new-object*)) (b world new-effects new-object))))) (define (then a b) |