factor: trim more using lists.

[factor.git] / extra / synth / synth.factor

diff --git a/extra/synth/synth.factor b/extra/synth/synth.factor
index acf668f3fe054bcf3f6b16f0b70acc855f8dff21..0cb4aa8066ced9a8ab52cebb7c12cbf34d7b8b51 100644 (file)
--- a/extra/synth/synth.factor
+++ b/extra/synth/synth.factor
@@ -4,6 +4,8 @@ USING: accessors kernel math math.constants math.functions
 sequences sequences.modified sequences.repeating ;
 IN: synth
 
+SLOT: sample-freq
+
 MEMO: single-sine-wave ( samples/wave -- seq )
     [ <iota> ] [ pi 2 * swap / [ * sin ] curry ] bi map ;