synth: fix code that depended on iterable numbers.

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

diff --git a/extra/synth/synth.factor b/extra/synth/synth.factor
index 2b9fd8da0b8b0eb5833d1bfe4fa4fd08258582e9..c2b80686f07590819799fce160f6ea63feb27c2f 100755 (executable)
--- 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 <repeating> ;