23 lines
415 B
C
23 lines
415 B
C
#include "picrin.h"
|
|
#include "picrin/extra.h"
|
|
|
|
double genrand_real3(void);
|
|
|
|
static pic_value
|
|
pic_random_real(pic_state *pic)
|
|
{
|
|
pic_get_args(pic, "");
|
|
|
|
return pic_float_value(pic, genrand_real3());
|
|
}
|
|
|
|
void
|
|
pic_nitro_init_random(pic_state *pic)
|
|
{
|
|
pic_deflibrary(pic, "srfi.27");
|
|
pic_in_library(pic, "srfi.27");
|
|
pic_export(pic, 1, "random-real");
|
|
|
|
pic_defun(pic, "srfi.27:random-real", pic_random_real);
|
|
}
|