diff options
Diffstat (limited to 'src/lisp/std.lisp')
-rw-r--r-- | src/lisp/std.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp/std.lisp b/src/lisp/std.lisp index 97c3984..2a042a0 100644 --- a/src/lisp/std.lisp +++ b/src/lisp/std.lisp | |||
@@ -47,7 +47,7 @@ | |||
47 | (define (product ls) (fold 1 * ls)) | 47 | (define (product ls) (fold 1 * ls)) |
48 | 48 | ||
49 | (define (enumerate start stop step) | 49 | (define (enumerate start stop step) |
50 | (if (> start stop) | 50 | (if (>= start stop) |
51 | '() | 51 | '() |
52 | (cons start | 52 | (cons start |
53 | (enumerate (+ start step) stop step)))) | 53 | (enumerate (+ start step) stop step)))) |