From 6402e33a2df88fb344a70f5f7eeb557231ded6dc Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 28 Jan 2020 08:32:51 +0000 Subject: Remove some peek calls --- src/reader.scm | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/src/reader.scm b/src/reader.scm index 222a9f9..a7f17c9 100644 --- a/src/reader.scm +++ b/src/reader.scm @@ -46,7 +46,6 @@ related to Guix, please submit it for the next issue!")) (define (lookup-news-text target-locale news-entry name type) (cdr (xml->sxml - (peek (any (lambda (locale) (assoc-ref (assoc-ref @@ -55,7 +54,7 @@ related to Guix, please submit it for the next issue!")) type)) (list target-locale (first (string-split target-locale #\_)) - "en"))) + "en")) #:entities '((nbsp . "\xa0") (hellip . "…"))))) @@ -118,10 +117,10 @@ related to Guix, please submit it for the next issue!")) news-entry "title-text" "html")) - ,(peek (lookup-news-text locale - news-entry - "body-text" - "html")))) + ,(lookup-news-text locale + news-entry + "body-text" + "html"))) (vector->list news))) %placeholder-content) `(,@content @@ -133,10 +132,10 @@ related to Guix, please submit it for the next issue!")) news-entry "title-text" "html")) - ,(peek (lookup-news-text locale - news-entry - "body-text" - "html")))) + ,(lookup-news-text locale + news-entry + "body-text" + "html"))) (vector->list news)) '())))) `((h3 "Package changes") -- cgit v1.2.3