WIP

crates/forth/src/ops.rs

@@ -39,6 +39,7 @@ pub enum Op {
     NewCmd,
     SetParam(String),
     Emit,
+    Silence,
     Get,
     Set,
     GetContext(String),
@@ -56,24 +57,14 @@ pub enum Op {
     ListEndCycle,
     PCycle,
     ListEndPCycle,
-    At,
-    Window,
     Scale,
-    Pop,
-    Subdivide,
     SetTempo,
-    Each,
     Every,
     Quotation(Vec<Op>, Option<SourceSpan>),
     When,
     Unless,
     Adsr,
     Ad,
-    Stack,
-    For,
-    LocalCycleEnd,
-    Echo,
-    Necho,
     Apply,
     Ramp,
     Range,
@@ -82,4 +73,9 @@ pub enum Op {
     Loop,
     Degree(&'static [i64]),
     Oct,
+    InternalCycleEnd,
+    DivStart,
+    DivEnd,
+    StackStart,
+    EmitN,
 }