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

Rename initial accessors.

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

12
src/brmember.scm
View file

@ -31,9 +31,9 @@
(
make-brmember
member-file-name
member-file-path
member-record-input-file
brmember-file-name
brmember-file-path
brmember-input-file
member-record-set
member-record-add-highlight
@ -130,15 +130,15 @@
pairs)))))))
;; File name without directory
(define (member-file-name mr)
(define (brmember-file-name mr)
(ldict-ref mr 'file-name))
;; Convenience accessor for file name with directory
(define (member-file-path mr)
(define (brmember-file-path mr)
(ldict-ref mr 'file-path))
;; Returns opened input file for this record (used by parser).
(define (member-record-input-file mr)
(define (brmember-input-file mr)
(open-input-file
(ldict-ref mr 'file-path)))