waalge
/
aiken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix compilation issue

This commit is contained in:
Kasey White 2022-07-25 23:56:18 -04:00 committed by Lucas
parent 234ab7c7cb
commit 4acbd704e0
1 changed files with 19 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
crates/uplc/src/machine.rs
View File

@ -160,44 +160,41 @@ impl Machine {
env: Vec<Value>,
term: Term<NamedDeBruijn>,
) -> Term<NamedDeBruijn> {
let mut lam_cnt = 0;
let mut term = term;
loop {
match term {
fn rec(
lam_cnt: usize,
t: Term<NamedDeBruijn>,
this: &mut Machine,
env: &[Value],
) -> Term<NamedDeBruijn> {
match t {
Term::Var(name) => {
let index: usize = name.index.into();
if lam_cnt >= index {
return Term::Var(name);
Term::Var(name)
} else {
return env
.get::<usize>(index - lam_cnt)
env.get::<usize>(env.len() - (index - lam_cnt))
.cloned()
.map_or(Term::Var(name), |v| self.discharge_value(v));
.map_or(Term::Var(name), |v| this.discharge_value(v))
}
}
Term::Lambda {
parameter_name,
body,
} => {
term = *body;
lam_cnt += 1;
return Term::Lambda {
parameter_name,
body: Box::new(rec(lam_cnt + 1, *body, env, this)),
};
}
} => Term::Lambda {
parameter_name,
body: Box::new(rec(lam_cnt + 1, *body, this, env)),
},
Term::Apply { function, argument } => Term::Apply {
function: Box::new(rec(lam_cnt, *function, env, this)),
argument: Box::new(rec(lam_cnt, *argument, env, this)),
function: Box::new(rec(lam_cnt, *function, this, env)),
argument: Box::new(rec(lam_cnt, *argument, this, env)),
},
Term::Delay(x) => Term::Delay(Box::new(rec(lam_cnt, *x, env, this))),
Term::Force(x) => Term::Force(Box::new(rec(lam_cnt, *x, env, this))),
Term::Delay(x) => Term::Delay(Box::new(rec(lam_cnt, *x, this, env))),
Term::Force(x) => Term::Force(Box::new(rec(lam_cnt, *x, this, env))),
rest => rest,
}
}
rec(0, term, self, &env)
}
fn force_evaluate(