process float/1 and pi/0

2019-05-12 22:21:29 -04:00
parent f344150322
commit 59ab4cd67c
3 changed files with 10 additions and 1 deletions
--- a/src/prolog/machine/machine_state_impl.rs
+++ b/src/prolog/machine/machine_state_impl.rs
@@ -930,6 +930,9 @@ impl MachineState {
                    interms.push(Number::Float(n)),
                HeapCellValue::Addr(Addr::Con(Constant::Rational(n))) =>
                    interms.push(Number::Rational(n)),
+                HeapCellValue::Addr(Addr::Con(Constant::Atom(ref name, _)))
+                    if name.as_str() == "pi" =>
+                      interms.push(Number::Float(OrderedFloat(f64::consts::PI))),
                _ =>
                    return Err(self.error_form(MachineError::instantiation_error(), caller))
            }