9 lines
185 B
Racket
9 lines
185 B
Racket
#lang racket/base
|
|
|
|
(require "fingerprint.rkt")
|
|
|
|
(provide inspect-flac-sample-rate)
|
|
|
|
(define (inspect-flac-sample-rate path)
|
|
(flac-streaminfo-sample-rate (read-flac-streaminfo path)))
|