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

Rename meta predicates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:27:27 +02:00
parent 3ef6c0b628
commit bf2b8ef23a
4 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/brmember.scm
View file

@ -45,10 +45,10 @@
brmember-source
brmember-info
member-missing-keys
member-has-highlights?
member-record-usable?
member-has-problems?
brmember-missing-keys
brmember-has-highlights?
brmember-usable?
brmember-has-problems?
member-destroyed?
member-suspended?
@ -214,14 +214,14 @@
(ldict-ref info key (car defaults)))))
;; Return mandatory keys with #f as value
(define (member-missing-keys mr)
(define (brmember-missing-keys mr)
(ldict-reduce '()
(lambda (acc k v)
(if v acc (cons k acc)))
(ldict-ref mr 'info)))
;; True if there are any source highlights
(define (member-has-highlights? mr)
(define (brmember-has-highlights? mr)
(ldict-contains? mr 'highlights))
;; Returns true if there is at least one highlight of given type
@ -238,13 +238,13 @@
(member-highlights-has-type? mr 'error))
;; Absolutely required
(define (member-record-usable? mr)
(define (brmember-usable? mr)
(ldict-contains? (ldict-ref mr 'info) 'member))
;; True if member record is OK
(define (member-has-problems? mr)
(define (brmember-has-problems? mr)
(or (member-has-errors? mr)
(not (member-record-usable? mr))
(not (brmember-usable? mr))
(not (is-4digit-prime? (member-id mr)))))
;; Returns true if the member record represents non-existing