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

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

1 files changed, 4 insertions, 3 deletions

diff --git a/hn/g b/hn/g
index 8866e31..cd201b8 100755
--- 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))))))
+