add a recording-filesize function

This commit is contained in:
Leo Butler 2020-12-08 12:46:49 -06:00
parent fba4b359fa
commit bbb2c1ebf7
1 changed files with 2 additions and 0 deletions

View File

@ -262,6 +262,8 @@
(define (recording-basename rec)
(assv-ref (recording-recorded-table rec) 'basename))
(define (recording-filesize rec)
(assv-ref (recording-recorded-table rec) 'filesize))
(define (recording-new-file-name file-name ending)
(let* ((old-ending (substring file-name (- (string-length file-name) 3)))