w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rework of gmi:match-link procedure

Browse Source
This commit is contained in:
w6vvn
2025-09-07 18:48:41 -07:00
parent 91c04ac3c6
commit e6d28d6798
1 changed files with 3 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
gmi.rkt
View File

@@ -156,16 +156,6 @@
(document-items document))) (document-items document)))
(define (match-link document id) (define (match-link document id)
(define (iter next-structure) (let ([link (findf (λ (link) (= (link-id link) id))
(cond (filter link? (document-items document)))])
[(and (link? (car next-structure)) (if link (link-url link) #f)))
(= (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)))