From 094fbcfc130f33db2c8a58153a0a09773e2baab1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Apr 2023 22:53:01 +0200 Subject: [PATCH] Update TAG for brmember. --- src/Makefile | 5 +++-- src/brmember.scm | 6 ++++-- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/src/Makefile b/src/Makefile index ec3d837..5b02043 100644 --- a/src/Makefile +++ b/src/Makefile @@ -143,10 +143,11 @@ PRIMES-SOURCES=primes.scm testing.import.scm util-list.import.scm primes.o: primes.import.scm primes.import.scm: $(PRIMES-SOURCES) -BRMEMBER-SOURCES=brmember.scm util-dict-list.import.scm \ +BRMEMBER-SOURCES=brmember.scm util-dict-list.import.scm \ period.import.scm testing.import.scm month.import.scm \ configuration.import.scm primes.import.scm \ - bank-account.import.scm util-list.import.scm + bank-account.import.scm util-list.import.scm \ + util-tag.import.scm brmember.o: brmember.import.scm brmember.import.scm: $(BRMEMBER-SOURCES) diff --git a/src/brmember.scm b/src/brmember.scm index 94afd49..9275c15 100644 --- a/src/brmember.scm +++ b/src/brmember.scm @@ -85,7 +85,8 @@ configuration primes util-list - bank-account) + bank-account + util-tag) ;; Checks whether given string is a 4-digit decimal number. (define (is-4digit-string? s) @@ -119,7 +120,8 @@ (symbol->string (get-4digit-symbol-from-list (cons file-name symlinks)))))))) (if (null? args) - (make-ldict pairs) + (make-ldict (cons (cons 'TAG (make-tag BRMEMBER)) + pairs)) (if (not (keyword? (car args))) (error 'make-brmember "Optional arguments must be keywords" (car args)) (if (null? (cdr args))