wisp

get interweb fluff
Log | Files | Refs

commit 3486c51ebe5e3c2c2855a27d0094fdc3cf20767d
parent b2a77b518c18dffac2966ee0b3f6bc5c6ae77924
Author: rsiddharth <s@ricketyspace.net>
Date:   Tue, 18 Jun 2019 19:39:08 -0400

hn/g: Rename athings:hash -> athings:latest.

* hn/g (athings:hash): Rename to...
(athings:latest): ..this.

Diffstat:
hn/g | 7++++---
1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/hn/g b/hn/g @@ -44,12 +44,13 @@ (l (s a))) (list (sxml:text l) (sxml:attr (car l) 'href)))) -(define (athings:hash h athings:sxml) +(define (athings:latest h athings:sxml) (cond ((empty? athings:sxml) h) (else (let* ((athing (car athings:sxml)) (id (athing:id athing)) (link (athing:link athing))) - (athings:hash (hash-set h id link) - (cdr athings:sxml)))))) + (athings:latest (hash-set h (string->symbol id) link) + (cdr athings:sxml)))))) +