brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update TAG for brmember.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:53:01 +02:00
parent 74aaa4fc5f
commit 094fbcfc13
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Makefile
View file

@ -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)

6
src/brmember.scm
View file

@ -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))