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

Rename constructor.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 21:55:55 +02:00
parent 6b5821ac2e
commit c854fed99d
2 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/brmember.scm
View file

@ -29,7 +29,7 @@
(module
brmember
(
make-member-record
make-brmember
member-file-name
member-file-path
@ -110,7 +110,7 @@
;; Creates new member record based on the file and symlinks
;; information received from the members directory. Any keyword
;; arguments are converted to respective symbols in the dictionary.
(define (make-member-record file-name file-path symlinks . args)
(define (make-brmember file-name file-path symlinks . args)
(let loop ((args args)
(pairs `((file-name . ,file-name)
(file-path . ,file-path)
@ -121,9 +121,9 @@
(if (null? args)
(make-ldict pairs)
(if (not (keyword? (car args)))
(error 'make-member-record "Optional arguments must be keywords" (car args))
(error 'make-brmember "Optional arguments must be keywords" (car args))
(if (null? (cdr args))
(error 'make-member-record "Each optional keyword argument must have a value" (car args))
(error 'make-brmember "Each optional keyword argument must have a value" (car args))
(loop (cddr args)
(cons (cons (string->symbol (keyword->string (car args)))
(cadr args))
@ -352,17 +352,17 @@
(define (member-record-tests!)
(run-tests
member-record
(test-true make-member-record
(test-true make-brmember
(ldict-equal?
(make-member-record '|1234| "members/1234" '(|member|))
(make-brmember '|1234| "members/1234" '(|member|))
(make-ldict
'((file-name . |1234|)
(file-path . "members/1234")
(symlinks |member|)
(id . 1234)))))
(test-true make-member-record
(test-true make-brmember
(ldict-equal?
(make-member-record '|1234| "members/1234" '(|member|) #:msg "msg")
(make-brmember '|1234| "members/1234" '(|member|) #:msg "msg")
(make-ldict
'((msg . "msg")
(file-name . |1234|)

6
src/members-dir.scm
View file

@ -149,9 +149,9 @@
;; member-file module returns. The id key contains whatever is the
;; first 4-digit symbol in (cons fname aliases) list.
(define (members-dir-load-member mdir fname symlinks)
(let* ((mr0 (make-member-record fname
(make-pathname mdir (symbol->string fname))
symlinks)))
(let* ((mr0 (make-brmember fname
(make-pathname mdir (symbol->string fname))
symlinks)))
(load-member-file mr0)))
;; Performs self-tests of this module.