guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

144/197: gurses: Avoid one more use of car and cdr.


From: Danny Milosavljevic
Subject: 144/197: gurses: Avoid one more use of car and cdr.
Date: Mon, 3 Jul 2017 20:37:15 -0400 (EDT)

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit de4bafdf5e59d71f08d8a599846ad9e128adeda0
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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]