From 80a8d61e8e25d75c58cfa3c02b7137dc5e930b97 Mon Sep 17 00:00:00 2001
From: Kris Katterjohn <katterjohn@gmail.com>
Date: Sun, 2 Dec 2018 14:16:41 -0600
Subject: [PATCH] Fix an incorrect comment

---
 genfft/util.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/genfft/util.ml b/genfft/util.ml
index fd0e51583..62bd12fa7 100644
--- a/genfft/util.ml
+++ b/genfft/util.ml
@@ -145,7 +145,7 @@ let info string =
 (* iota n produces the list [0; 1; ...; n - 1] *)
 let iota n = forall [] cons 0 n identity
 
-(* interval a b produces the list [a; 1; ...; b - 1] *)
+(* interval a b produces the list [a; a + 1; ...; b - 1] *)
 let interval a b = List.map ((+) a) (iota (b - a))
 
 (*