From e6d28d6798d910814737f0ca9ed9ef0a42f904dc Mon Sep 17 00:00:00 2001 From: w6vvn Date: Sun, 7 Sep 2025 18:48:41 -0700 Subject: [PATCH] rework of gmi:match-link procedure --- gmi.rkt | 16 +++------------- 1 file changed, 3 insertions(+), 13 deletions(-) diff --git a/gmi.rkt b/gmi.rkt index 30751ed..1148530 100644 --- a/gmi.rkt +++ b/gmi.rkt @@ -156,16 +156,6 @@ (document-items document))) (define (match-link document id) - (define (iter next-structure) - (cond - [(and (link? (car next-structure)) - (= (link-id (car next-structure)) id)) - (link-url (car next-structure))] - - [(empty? (cdr next-structure)) - #f] - - [else - (iter (cdr next-structure))])) - - (iter (document-items document))) + (let ([link (findf (λ (link) (= (link-id link) id)) + (filter link? (document-items document)))]) + (if link (link-url link) #f)))