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 | 1eb0fadc0bad58b3d72bcc5453d45c6089abea36 (patch) | |
| tree | 01fb1649a5bf7ef41b2bf855c57cb7193a9dfcc7 /share | |
| parent | 4b772db7b36abc597d17d2c994227b5c032323ae (diff) | |
| download | txr-1eb0fadc0bad58b3d72bcc5453d45c6089abea36.tar.gz txr-1eb0fadc0bad58b3d72bcc5453d45c6089abea36.tar.bz2 txr-1eb0fadc0bad58b3d72bcc5453d45c6089abea36.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.
Diffstat (limited to 'share')
| -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%)) |