8ac3147a3182

Rename global generator
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 11 Feb 2018 13:34:32 -0500
parents 9e2c59c4c13d
children 7e8b0e494c82
branches/tags (none)
files src/pcg.lisp

Changes

--- a/src/pcg.lisp	Mon Jan 15 15:50:53 2018 -0500
+++ b/src/pcg.lisp	Sun Feb 11 13:34:32 2018 -0500
@@ -268,14 +268,14 @@
   (make-pcg% (resolve-seed seed) stream-id))
 
 
-(defparameter *global-pcg* (make-pcg))
+(defparameter *global-generator* (make-pcg))
 
 (deftype pcg-designator ()
   '(or (eql t) pcg))
 
 (defun-inline resolve-pcg (pcg-designator)
   (if (eq t pcg-designator)
-    *global-pcg*
+    *global-generator*
     pcg-designator))