[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
15/21: gurses: Avoid one more use of car and cdr.
From: |
John Darrington |
Subject: |
15/21: gurses: Avoid one more use of car and cdr. |
Date: |
Sun, 29 Jan 2017 07:35:02 +0000 (UTC) |
jmd pushed a commit to branch wip-installer
in repository guix.
commit ffb989a53da3df25af38a089d5150d106eef4d66
Author: John Darrington <address@hidden>
Date: Fri Jan 27 09:03:56 2017 +0100
gurses: Avoid one more use of car and cdr.
* gurses/stexi.scm (count-words): Use match instead of car and cdr.
---
gurses/stexi.scm | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/gurses/stexi.scm b/gurses/stexi.scm
index 6174d73..cb383e8 100644
--- a/gurses/stexi.scm
+++ b/gurses/stexi.scm
@@ -166,12 +166,14 @@ string of length LEN"
(x 0)
(n 0)
(prev-white #t))
- (if (null? in)
- n
- (let ((white (xchar-blank? (car in))))
- (loop (cdr in) (1+ x) (if (and prev-white (not white))
- (1+ n)
- n) white)))))
+ (match
+ in
+ (() n)
+ ((first . rest)
+ (let ((white (xchar-blank? first)))
+ (loop rest (1+ x) (if (and prev-white (not white))
+ (1+ n)
+ n) white))))))
(let* ((underflow (- len (length str)))
(word-count (count-words str))
- 07/21: installer: No passphrase is needed for clear networks., (continued)
- 07/21: installer: No passphrase is needed for clear networks., John Darrington, 2017/01/29
- 04/21: installer: Change livery., John Darrington, 2017/01/29
- 08/21: installer: Prepare for new wireless network features., John Darrington, 2017/01/29
- 05/21: installer: Tolerate an undefined system role in config generation., John Darrington, 2017/01/29
- 09/21: installer: Clear the mount point field for swap file systems., John Darrington, 2017/01/29
- 03/21: installer: Add new procedure to check file system specifications., John Darrington, 2017/01/29
- 01/21: installer: Delete unused procedure "justify"., John Darrington, 2017/01/29
- 20/21: gurses: Add new procedure "word-endings"., John Darrington, 2017/01/29
- 14/21: gurses: Add predicate to test if a complex char is blank., John Darrington, 2017/01/29
- 12/21: gurses: Avoid one usage of car and cdr., John Darrington, 2017/01/29
- 15/21: gurses: Avoid one more use of car and cdr.,
John Darrington <=
- 13/21: gurses: xchar->char: New procedure., John Darrington, 2017/01/29
- 19/21: installer: Support WEP encrypted wireless., John Darrington, 2017/01/29
- 16/21: gurses: Avoid yet another use of car and cdr., John Darrington, 2017/01/29
- 11/21: installer: Fix the key map option., John Darrington, 2017/01/29
- 18/21: gurses: In paragraph-format avoid use of car and cdr., John Darrington, 2017/01/29
- 06/21: installer: Use a "hard" method of rebooting. Do not rely on shepherd., John Darrington, 2017/01/29
- 10/21: installer: Allow file system specifications to be removed., John Darrington, 2017/01/29
- 17/21: gurses: Use match instead of car/cdr in line-split., John Darrington, 2017/01/29
- 21/21: gurses: Reimplement pad-complex-string., John Darrington, 2017/01/29