Loop word

crates/forth/src/words.rs

@@ -614,6 +614,13 @@ pub const WORDS: &[Word] = &[
         example: "{ emit } 3 div for",
         compile: Simple,
     },
+    Word {
+        name: "loop",
+        stack: "(n --)",
+        desc: "Fit sample to n beats",
+        example: "\"break\" s 4 loop emit",
+        compile: Simple,
+    },
     Word {
         name: "|",
         stack: "(-- marker)",
@@ -1565,6 +1572,7 @@ pub(super) fn simple_op(name: &str) -> Option<Op> {
         "range" => Op::Range,
         "noise" => Op::Noise,
         "chain" => Op::Chain,
+        "loop" => Op::Loop,
         _ => return None,
     })
 }