diff options
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%)) |