Show member files with issues.
This commit is contained in:
parent
bb970b6eb9
commit
e861e31a53
3 changed files with 15 additions and 2 deletions
|
@ -31,6 +31,7 @@
|
|||
(
|
||||
make-member-record
|
||||
|
||||
member-file-path
|
||||
member-record-input-file
|
||||
|
||||
member-record-set
|
||||
|
@ -120,6 +121,10 @@
|
|||
(cadr args))
|
||||
pairs)))))))
|
||||
|
||||
;; Convenience accessor
|
||||
(define (member-file-path mr)
|
||||
(dict-ref mr 'file-path))
|
||||
|
||||
;; Returns opened input file for this record (used by parser).
|
||||
(define (member-record-input-file mr)
|
||||
(open-input-file
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue