Show member files with issues.

This commit is contained in:
Dominik Pantůček 2023-03-28 11:59:38 +02:00
parent bb970b6eb9
commit e861e31a53
3 changed files with 15 additions and 2 deletions

View file

@ -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