fix conformity errors
This commit is contained in:
@@ -22,7 +22,7 @@ pub(super) struct MachineError {
|
||||
impl MachineError {
|
||||
pub(super) fn functor_stub(name: ClauseName, arity: usize) -> MachineStub {
|
||||
let name = HeapCellValue::Addr(Addr::Con(Constant::Atom(name, None)));
|
||||
functor!("/", 2, [name, heap_integer!(arity)], (400, YFX))
|
||||
functor!("/", 2, [name, heap_integer!(arity)], SharedOpDesc::new(400, YFX))
|
||||
}
|
||||
|
||||
pub(super) fn evaluation_error(eval_error: EvalError) -> Self {
|
||||
@@ -47,8 +47,8 @@ impl MachineError {
|
||||
|
||||
stub.append(&mut functor!("/", 2, [HeapCellValue::Addr(Addr::HeapCell(h + 2 + 3)),
|
||||
heap_integer!(arity)],
|
||||
(400, YFX)));
|
||||
stub.append(&mut functor!(":", 2, [mod_name, name], (600, XFY)));
|
||||
SharedOpDesc::new(400, YFX)));
|
||||
stub.append(&mut functor!(":", 2, [mod_name, name], SharedOpDesc::new(600, XFY)));
|
||||
|
||||
MachineError { stub, from: ErrorProvenance::Constructed }
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user