remove unListData

This commit is contained in:
Kasey White 2022-11-24 18:23:42 -05:00 committed by Lucas
parent 84da69411d
commit e3267310c5
1 changed files with 11 additions and 13 deletions

View File

@ -187,20 +187,16 @@ impl<'a> CodeGenerator<'a> {
unique: 0.into(),
},
body: Term::Apply {
function: Term::Builtin(DefaultFunction::UnListData).into(),
function: Term::Force(
Term::Force(Term::Builtin(DefaultFunction::SndPair).into()).into(),
)
.into(),
argument: Term::Apply {
function: Term::Force(
Term::Force(Term::Builtin(DefaultFunction::SndPair).into()).into(),
)
.into(),
argument: Term::Apply {
function: Term::Builtin(DefaultFunction::UnConstrData).into(),
argument: Term::Var(Name {
text: "constr_var".to_string(),
unique: 0.into(),
})
.into(),
}
function: Term::Builtin(DefaultFunction::UnConstrData).into(),
argument: Term::Var(Name {
text: "constr_var".to_string(),
unique: 0.into(),
})
.into(),
}
.into(),
@ -246,6 +242,8 @@ impl<'a> CodeGenerator<'a> {
let mut interner = Interner::new();
println!("{}", program.to_pretty());
interner.program(&mut program);
program