merge fixes

web/scripts/list.ss

@@ -67,8 +67,6 @@
     ((zero? i) (cons v (list-replace (cdr l) (- i 1) v)))
     (else (cons (car l) (list-replace (cdr l) (- i 1) v)))))
 
-(define (choose l) (list-ref l (random (length l))))
-
 (define (set-cons v l)
   (if (list-contains? l v)
       l

web/scripts/server-sync.ss

@@ -159,7 +159,6 @@
 ;;  (ktv "pack-id" "int" 1)
 ;;  (ktv "weight" "real" 10.4)))
 
-(define (choose l) (list-ref l (random (length l))))
 
 (define (random-string len)
   (if (zero? len)

web/scripts/utils.ss

@@ -35,6 +35,10 @@
   (when (not (equal? a b))
         (error "unit " msg a b)))
 
+(define (rndf)
+  (random))
+
+(define (choose l) (list-ref l (random (length l))))
 
 ;
 ; -- procedure+: string-split STRING