From 98bd8f043000e89001bd7c3c5d5f57c9bacb906a Mon Sep 17 00:00:00 2001 From: Nikolay Puzanov Date: Sat, 5 Nov 2022 21:23:12 +0300 Subject: [PATCH] Add comment --- embddr/random.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/embddr/random.scm b/embddr/random.scm index d16f3be..2ac65c3 100644 --- a/embddr/random.scm +++ b/embddr/random.scm @@ -31,7 +31,9 @@ constrs))) ;;; ;;; Make constrained random number generator. -;;; Constraints is list of '(from to weight) +;;; Constraints is list of '(from to weight), where +;;; 'from' - inclusive bottom limit, 'to' - exclusive +;;; top limit or random range. ;;; (define (constrained-random-generator constrs) (let ((constrs (clean-constraints constrs)))