From 1eb0fadc0bad58b3d72bcc5453d45c6089abea36 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 29 Dec 2020 00:53:01 -0800 Subject: quips: use random-state argument in shuffle call. * share/txr/stdlib/quips.tl (quip): Don't bind *random-state*; pass an argument to shuffle. --- share/txr/stdlib/quips.tl | 3 +-- 1 file changed, 1 insertion(+), 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%)) -- cgit v1.2.3