diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-12-29 00:53:01 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-12-29 00:53:01 -0800 |
| commit | a865ca88a5f824fcae63413ba95e24d6443820aa (patch) | |
| tree | 01fb1649a5bf7ef41b2bf855c57cb7193a9dfcc7 | |
| parent | d67e97e6991fe2d6c8414feda7d72f0ee24f0a9f (diff) | |
| download | txr-a865ca88a5f824fcae63413ba95e24d6443820aa.tar.gz txr-a865ca88a5f824fcae63413ba95e24d6443820aa.tar.bz2 txr-a865ca88a5f824fcae63413ba95e24d6443820aa.zip | |
quips: use random-state argument in shuffle call.
* share/txr/stdlib/quips.tl (quip): Don't bind *random-state*;
pass an argument to shuffle.
| -rw-r--r-- | share/txr/stdlib/quips.tl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/share/txr/stdlib/quips.tl b/share/txr/stdlib/quips.tl index dd70dcfe..72cede9c 100644 --- a/share/txr/stdlib/quips.tl +++ b/share/txr/stdlib/quips.tl @@ -84,6 +84,5 @@ (defun quip () (unless sys:%shuffled-quips% - (let ((*random-state* sys:%quip-rand-state%)) - (set sys:%shuffled-quips% (shuffle sys:%quips%)))) + (set sys:%shuffled-quips% (shuffle sys:%quips% sys:%quip-rand-state%))) (pop sys:%shuffled-quips%)) |