[<<][sweb][>>][..]
Wed Jun 24 16:12:51 CEST 2009

removed random link generator

  ;; Add a random page generator (dynamic node)
  (n! page-links 'random
      (dynamic
       (list-ref-random node-list)))

  (define (list-ref-random lst)
    (list-ref lst
              (inexact->exact
               (floor
                (* (random)
                   (length lst))))))



[Reply][About]
[<<][sweb][>>][..]