diff --git a/embddr/random.scm b/embddr/random.scm
index 2ac65c3..c53f711 100644
--- a/embddr/random.scm
+++ b/embddr/random.scm
@@ -8,7 +8,7 @@
 
 ;;;
 ;;; Remove redundant (zero range) constraints.
-;;; Limit weight in range (0..1]
+;;; Limit the weight value in positive range
 ;;;
 (define (clean-constraints constrs)
   (remove (lambda (c)
@@ -20,14 +20,11 @@
           (map (lambda (c)
                  (let ((from (inexact->exact (round (car c))))
                        (to (inexact->exact (round (cadr c))))
-                       (w (caddr c)))
-                   (let ((w (cond
-                             ((< w 0) 0)
-                             ((> w 1) 1)
-                             (else w))))
-                     (if (> from to)
-                         (list to from w)
-                         (list from to w)))))
+                       (w (let ((w (caddr c)))
+                            (if (< w 0) 0 w))))
+                   (if (> from to)
+                       (list to from w)
+                       (list from to w))))
                constrs)))
 ;;;
 ;;; Make constrained random number generator.