From fa9dd836736989c3c760d5bb28d9c2f3885022a3 Mon Sep 17 00:00:00 2001 From: Juan Marín Noguera Date: Thu, 5 Dec 2024 15:30:17 +0100 Subject: TIL SRFI-11 --- day05.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'day05.scm') diff --git a/day05.scm b/day05.scm index d5334c6..ef25d1b 100644 --- a/day05.scm +++ b/day05.scm @@ -2,6 +2,7 @@ #:use-module (ice-9 rdelim) #:use-module (ice-9 regex) #:use-module (srfi srfi-1) + #:use-module (srfi srfi-11) #:use-module (srfi srfi-26) #:use-module (srfi srfi-69)) @@ -51,10 +52,9 @@ (let ((line (read-line port))) (if (or (eof-object? line) (string=? "" line)) rules - (call-with-values (lambda () (parse-ordering-rule line)) - (lambda (before after) - (ordering-rules-add! rules before after) - (loop))))))) + (let-values (((before after) (parse-ordering-rule line))) + (ordering-rules-add! rules before after) + (loop)))))) (define page-update-regexp (make-regexp "^([0-9]+,)*[0-9]+$")) -- cgit v1.2.3