;; this will seed rng in gsl_rng closure above (bind-func gsl_rng_seed (lambda (seed) (let ((rng (gsl_rng.rng:gsl_rng*))) (gsl_rng_set rng seed)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;