generic: Fix fallback-dds-step.
This commit is contained in:
parent
8c92a4bbd8
commit
fea113c1dd
1 changed files with 1 additions and 1 deletions
|
@ -19,7 +19,7 @@
|
|||
;;; Given a dds and a set of starting states, produce the set of
|
||||
;;; states reachable in one step. This is a fallback for dds-step.
|
||||
(define (fallback-dds-step dds ss)
|
||||
(list->set (flatten (for/list ([s ss]) (dds-step-one dds s)))))
|
||||
(apply set-union (for/list ([s ss]) (dds-step-one dds s))))
|
||||
|
||||
;;; A discrete dynamical system.
|
||||
(define-generics dds
|
||||
|
|
Loading…
Reference in a new issue