diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-03 20:01:22 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-03 20:01:26 +0100 |
| commit | eed472a7436d2029c30799274545243f0ccd725d (patch) | |
| tree | 520e24621d84ffd70e1f60d891f1f9b56e5d79ad | |
| parent | 20843c55208fbf2861217532d1a8f03ee27d8be9 (diff) | |
| download | mew-eed472a7436d2029c30799274545243f0ccd725d.tar.gz mew-eed472a7436d2029c30799274545243f0ccd725d.tar.xz mew-eed472a7436d2029c30799274545243f0ccd725d.zip | |
drop nth
Just having get is good enough.
| -rw-r--r-- | mew.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/mew.scm b/mew.scm index 64e2126..053ad98 100644 --- a/mew.scm +++ b/mew.scm @@ -12,7 +12,7 @@ keys len loc mod - negate nth + negate one-of op op* per prn puts rep @@ -93,9 +93,6 @@ (define (dec i) (- i 1)) - (define (nth n lst) - (list-ref lst n)) - (define <>? (case-lambda ((a b) (not (equal? a b))) |