fix repeat stack discipline

may_2025_thoughts.md

@@ -494,7 +494,7 @@ Here's a list of things that need doing:
     - I need this fixed for optimization reasons.
     - I _think_ I just fixed this by fixing tail position tracking in collections
     - [ ] test this
-* [ ] Dict patterns are giving me stack discipline grief. Why is stack discipline so hard?
+* [x] Dict patterns are giving me stack discipline grief. Why is stack discipline so hard?
 * [ ] This is in the service of getting turtle graphics working
 * Other forms in the language need help:
     * [ ] repeat needs its stack discipline updated, it currently crashes the compiler

sandbox.ld

@@ -1,4 +1,4 @@
-let state = #{:position (0, 0), :heading 0, :pencolor :white}
+& let state = #{:position (0, 0), :heading 0, :pencolor :white}
 
 & let command = (:forward, 10)
 
@@ -35,5 +35,11 @@ let state = #{:position (0, 0), :heading 0, :pencolor :white}
 & 	& (:background, _) -> state
 & }
 
+box foos = []
 
+repeat 4 {
+	update! (foos, append (_, :foo))
+}
+
+do foos > unbox > count
 

src/compiler.rs

@@ -1242,7 +1242,7 @@ impl<'a> Compiler<'a> {
                 // begin repeat
                 self.emit_op(Op::Decrement);
                 let repeat_begin = self.len();
-                self.emit_op(Op::Duplicate);
+                self.duplicate();
                 let jiz_idx = self.stub_jump(Op::JumpIfZero);
                 // compile the body
                 self.visit(body);

src/main.rs

@@ -112,8 +112,8 @@ pub fn run(src: &'static str) {
     // in any event, the AST should live forever
     let parsed: &'static Spanned<Ast> = Box::leak(Box::new(parse_result.unwrap()));
 
-    // let prelude = prelude();
+    let prelude = prelude();
-    let prelude = imbl::HashMap::new();
+    // let prelude = imbl::HashMap::new();
 
     let mut validator = Validator::new(&parsed.0, &parsed.1, "user input", src, prelude.clone());
     validator.validate();