From 6aed08201504841ab391b54a4a1b5d75f8e6b97a Mon Sep 17 00:00:00 2001 From: haskal Date: Tue, 5 May 2020 00:17:35 -0400 Subject: [PATCH] add bang --- private/rules.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/private/rules.rkt b/private/rules.rkt index f17e9b2..2d52d22 100644 --- a/private/rules.rkt +++ b/private/rules.rkt @@ -39,7 +39,7 @@ 'pronouns "awoo:pronouns"))) ;; transforms the xexpr into an xexpr that includes links to hashtags -(define (process-hashtags xexpr instance-url hashtags) +(define (process-hashtags! xexpr instance-url hashtags) (define (process+ xexpr) (match xexpr [(list tag attrs children ...) @@ -72,7 +72,7 @@ (define bio-md (port->string (hash-ref in "src/bio.md"))) (define bio-hashtags (mutable-set)) - (define bio-xs (map (lambda (b) (process-hashtags b instance-url bio-hashtags)) + (define bio-xs (map (lambda (b) (process-hashtags! b instance-url bio-hashtags)) (parse-markdown bio-md))) (define bio (apply string-append (map xexpr->string bio-xs)))