From 61dd5428155c271a55a9df6a67a82ec4ae1e875c Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 26 Oct 2011 15:14:39 -0700 Subject: [PATCH] synth: fix code that depended on iterable numbers. --- extra/synth/synth.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/synth/synth.factor b/extra/synth/synth.factor index 2b9fd8da0b..c2b80686f0 100755 --- a/extra/synth/synth.factor +++ b/extra/synth/synth.factor @@ -4,7 +4,7 @@ USING: accessors kernel locals math math.constants math.functions memoize openal IN: synth MEMO: single-sine-wave ( samples/wave -- seq ) - pi 2 * over / [ * sin ] curry map ; + [ iota ] [ pi 2 * swap / [ * sin ] curry ] bi map ; : (sine-wave) ( samples/wave n-samples -- seq ) [ single-sine-wave ] dip ;