diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-09-08 06:43:11 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-09-08 06:43:11 -0700 |
| commit | f72fa1121f2571aba9f16f95d58d8e915965d765 (patch) | |
| tree | 5a69df1dd47b2b912604bbcff3303088f4ea5ab1 /gencadr.txr | |
| parent | 67e450455d7514d9a03da48e7830e59f98b6a958 (diff) | |
| download | txr-f72fa1121f2571aba9f16f95d58d8e915965d765.tar.gz txr-f72fa1121f2571aba9f16f95d58d8e915965d765.tar.bz2 txr-f72fa1121f2571aba9f16f95d58d8e915965d765.zip | |
Random states of type random-state, not *random-state*.
* lib.c (compat_fixup): Call rand_compat_fixup.
* rand.c (random_state_var_s): New global symbol variable.
(rand_compat_fixup): New static function.
(rand_init): Initialize random_state_var_s by intering
the earmuffed symbol *random-state*. Initialize random_state_s
to the non-earmuffed symbol random-state.
* rand.h (random_state_var_s): Declared.
(random_state): Macro updated to look up the special
variable using random_state_var_s, rather than random_state_s.
(rand_compat_fixup): Declared.
Diffstat (limited to 'gencadr.txr')
0 files changed, 0 insertions, 0 deletions