Removed log messages
This commit is contained in:
parent
ac0baf94ed
commit
f9607006d5
|
@ -79,8 +79,7 @@ let fnn =
|
|||
evaluationParams: ExpressionTypes.ExpressionTree.evaluationParams,
|
||||
name,
|
||||
args: array(node),
|
||||
) =>{
|
||||
Js.log3("HERE", name, args);
|
||||
) =>
|
||||
switch (
|
||||
name,
|
||||
ExpressionTypes.ExpressionTree.Environment.get(
|
||||
|
@ -121,4 +120,3 @@ let fnn =
|
|||
| ("to", _) => to_(args)
|
||||
| _ => Error("Function not found")
|
||||
};
|
||||
}
|
||||
|
|
|
@ -356,7 +356,6 @@ let fromString2 = str => {
|
|||
Inside of this function, MathAdtToDistDst is called whenever a distribution function is encountered.
|
||||
*/
|
||||
let mathJsToJson = str |> pointwiseToRightLogShift |> Mathjs.parseMath;
|
||||
Js.log2("HI", mathJsToJson);
|
||||
let mathJsParse =
|
||||
E.R.bind(mathJsToJson, r => {
|
||||
switch (MathJsonToMathJsAdt.run(r)) {
|
||||
|
@ -366,7 +365,6 @@ let fromString2 = str => {
|
|||
});
|
||||
|
||||
let value = E.R.bind(mathJsParse, MathAdtToDistDst.run);
|
||||
Js.log3("HI", mathJsParse, value);
|
||||
value;
|
||||
};
|
||||
|
||||
|
|
|
@ -108,15 +108,14 @@ module Internals = {
|
|||
let runProgram = (inputs: inputs, p: ExpressionTypes.Program.program) => {
|
||||
let ins = ref(inputs);
|
||||
p
|
||||
|> E.A.fmap(statement => {
|
||||
Js.log2("Running ling", statement);
|
||||
switch (statement) {
|
||||
| `Assignment(name, node) =>
|
||||
|> E.A.fmap(
|
||||
fun
|
||||
| `Assignment(name, node) => {
|
||||
ins := addVariable(ins^, name, node);
|
||||
None;
|
||||
| `Expression(node) => Some(runNode(ins^, node))
|
||||
};
|
||||
})
|
||||
}
|
||||
| `Expression(node) => Some(runNode(ins^, node)),
|
||||
)
|
||||
|> E.A.O.concatSomes
|
||||
|> E.A.R.firstErrorOrOpen;
|
||||
};
|
||||
|
@ -127,7 +126,6 @@ module Internals = {
|
|||
|> E.R.bind(_, r =>
|
||||
E.A.last(r)
|
||||
|> E.O.toResult("No rendered lines")
|
||||
|> (e => {Js.log2("EE", e); e})
|
||||
|> E.R.fmap(Shape.T.normalize)
|
||||
);
|
||||
};
|
||||
|
|
Loading…
Reference in New Issue
Block a user