Loopy / loop macro bugfix - fixed error
  Error: invalid syntax (%loop-next () ((y (random-real) (random-real))) () () tmp-loop () () () () () ((x <- in-range 3 9)) (write y) (newline) (tmp-loop))
caused by missing parameter on the real version (no parameters) of in-random.

It now works as advertised (except that contrary to documentation exact values are being returned, which does not bother me):
(loop ( (y <- in-random)(x <- in-range 3 9) ) (write y) (newline))
27525125/97612893
618462101/1073741823
180068957/357913941
72244354/153391689
703916359/1073741823
6019642/34636833