#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)))