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

3
src/Makefile
View file

@ -146,7 +146,8 @@ 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 \ period.import.scm testing.import.scm month.import.scm \
configuration.import.scm primes.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.o: brmember.import.scm
brmember.import.scm: $(BRMEMBER-SOURCES) brmember.import.scm: $(BRMEMBER-SOURCES)

6
src/brmember.scm
View file

@ -85,7 +85,8 @@
configuration configuration
primes primes
util-list util-list
bank-account) bank-account
util-tag)
;; Checks whether given string is a 4-digit decimal number. ;; Checks whether given string is a 4-digit decimal number.
(define (is-4digit-string? s) (define (is-4digit-string? s)
@ -119,7 +120,8 @@
(symbol->string (symbol->string
(get-4digit-symbol-from-list (cons file-name symlinks)))))))) (get-4digit-symbol-from-list (cons file-name symlinks))))))))
(if (null? args) (if (null? args)
(make-ldict pairs) (make-ldict (cons (cons 'TAG (make-tag BRMEMBER))
pairs))
(if (not (keyword? (car args))) (if (not (keyword? (car args)))
(error 'make-brmember "Optional arguments must be keywords" (car args)) (error 'make-brmember "Optional arguments must be keywords" (car args))
(if (null? (cdr args)) (if (null? (cdr args))