remove unListData
This commit is contained in:
parent
84da69411d
commit
e3267310c5
|
@ -187,20 +187,16 @@ impl<'a> CodeGenerator<'a> {
|
||||||
unique: 0.into(),
|
unique: 0.into(),
|
||||||
},
|
},
|
||||||
body: Term::Apply {
|
body: Term::Apply {
|
||||||
function: Term::Builtin(DefaultFunction::UnListData).into(),
|
function: Term::Force(
|
||||||
|
Term::Force(Term::Builtin(DefaultFunction::SndPair).into()).into(),
|
||||||
|
)
|
||||||
|
.into(),
|
||||||
argument: Term::Apply {
|
argument: Term::Apply {
|
||||||
function: Term::Force(
|
function: Term::Builtin(DefaultFunction::UnConstrData).into(),
|
||||||
Term::Force(Term::Builtin(DefaultFunction::SndPair).into()).into(),
|
argument: Term::Var(Name {
|
||||||
)
|
text: "constr_var".to_string(),
|
||||||
.into(),
|
unique: 0.into(),
|
||||||
argument: Term::Apply {
|
})
|
||||||
function: Term::Builtin(DefaultFunction::UnConstrData).into(),
|
|
||||||
argument: Term::Var(Name {
|
|
||||||
text: "constr_var".to_string(),
|
|
||||||
unique: 0.into(),
|
|
||||||
})
|
|
||||||
.into(),
|
|
||||||
}
|
|
||||||
.into(),
|
.into(),
|
||||||
}
|
}
|
||||||
.into(),
|
.into(),
|
||||||
|
@ -246,6 +242,8 @@ impl<'a> CodeGenerator<'a> {
|
||||||
|
|
||||||
let mut interner = Interner::new();
|
let mut interner = Interner::new();
|
||||||
|
|
||||||
|
println!("{}", program.to_pretty());
|
||||||
|
|
||||||
interner.program(&mut program);
|
interner.program(&mut program);
|
||||||
|
|
||||||
program
|
program
|
||||||
|
|
Loading…
Reference in New Issue