core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

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

diff --git a/extra/synth/synth.factor b/extra/synth/synth.factor
index 8d1299042a2c3fcbae3304bf700b612a734b4076..da591bc3140dd566d53591889bf3e8a99cb6b563 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 )
-    [ iota ] [ pi 2 * swap / [ * sin ] curry ] bi map ;
+    [ <iota> ] [ pi 2 * swap / [ * sin ] curry ] bi map ;
 
 : (sine-wave) ( samples/wave n-samples -- seq )
     [ single-sine-wave ] dip <cycles> ;