diff options
| author | Arun Isaac <arunisaac@systemreboot.net> | 2018-09-25 12:25:08 +0530 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-11-09 19:50:27 +0100 |
| commit | a74b35ed49564bf90cffdeeced301d4abde35623 (patch) | |
| tree | fe2ab976336fead702b13cbe29d368c16b2aebee | |
| parent | fe14ac2a209d918d4f86cbcc0f5137a5fdfef801 (diff) | |
Simplify definition of nth.
* mumi/messages.scm (extract-attachment): Simplify definition of nth
by using list-ref instead of drop and first.
| -rw-r--r-- | mumi/messages.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 6c33e8a..0d912c4 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -287,7 +287,7 @@ horrible because Debbugs does not let us access messages directly, so we have to do this in a very convoluted way." (define (nth n lst) (and (< n (length lst)) - (first (drop lst n)))) + (list-ref lst n))) (define (traverse path parts) (let loop ((path path) (parts parts)) |