diff options
-rw-r--r-- | shell/data.limg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/shell/data.limg b/shell/data.limg index 21488812..9d130a28 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -22,7 +22,7 @@ 0 (+ 1 (len (cdr l)))))]) (nth . [(def (nth n xs) - (if (<= n 0) + (if (< n 1) (car xs) (nth (- n 1) (cdr xs))))]) (map1 . [(def (map1 f xs) |