1 
//! SETF on a wasm local — the bind-runtime path of `let*` allocates
2 
//! a local, the setf path mutates it. Used to be tested via an
3 
//! injected `Expr::WasmRuntime(Ratio)` symbol; rewritten to use a
4 
//! real host fn producer.
5 

            

        

            

                6
            

            

                
            

            

                
use super::common::{compile_and_validate, wrap_with_runtime_ratio};

            

        

            

                7
            

            

                
            

            

                

            

        

            

                8
            

            

                
            

            

                
#[test]

            

        

            

                9
            

            

                1
            

            

                
fn setf_on_let_star_local() {

            

        

            

                10
            

            

                1
            

            

                
    compile_and_validate(&wrap_with_runtime_ratio(

            

        

            

                11
            

            

                1
            

            

                
        "(let* ((Y (+ X 1))) (setf Y (+ Y 2)) Y)",

            

        

            

                12
            

            

                1
            

            

                
    ));

            

        

            

                13
            

            

                1
            

            

                
}