remove unListData
This commit is contained in:
parent
84da69411d
commit
e3267310c5
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue