diff options
| -rw-r--r-- | mew.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mew.scm b/mew.scm index 02d0dd5..a623b74 100644 --- a/mew.scm +++ b/mew.scm @@ -212,11 +212,11 @@ (while (not cond) body ...)))) (define (list-ref-default l i default) - (if (zero? i) - (if (null? l) - default - (car l)) - (list-ref-default (cdr l) (- i 1) default))) + (if (null? l) + default + (if (zero? i) + (car l) + (list-ref-default (cdr l) (- i 1) default)))) (define (vector-ref-default v i default) (if (< i (vector-length v)) |