jets: stack.frame_pop() at end of stir

This commit is contained in:
Matthew LeVan 2023-12-07 13:23:49 -05:00
parent bd45da99f8
commit 45eff27f62

View File

@ -234,6 +234,7 @@ pub fn jet_stir(context: &mut Context, subject: Noun) -> Result {
let raq = slot(van, 26)?;
let fel = slot(van, 27)?;
// XX should we use a struct for this?
// +$ edge [p=hair q=(unit [p=* q=nail])]
let hair = T(&mut context.stack, &[D(1), D(1)]);
let mut par_u = T(&mut context.stack, &[hair, D(0)]);
@ -276,6 +277,8 @@ pub fn jet_stir(context: &mut Context, subject: Noun) -> Result {
unsafe { context.stack.pop::<Noun>(); };
}
unsafe { context.stack.frame_pop(); };
Ok(T(&mut context.stack, &[p_wag, D(0), puq_wag, quq_wag]))
}