From 1b4422bb906e41067e1aef6541115ec9ebcedf54 Mon Sep 17 00:00:00 2001 From: Umur Ozkul Date: Tue, 12 Apr 2022 16:26:43 +0200 Subject: [PATCH] revise lisp references - close umuro/squiggle#50 --- .../Reducer/Reducer_Dispatch/Reducer_Dispatch_BuiltIn.res | 2 +- .../Reducer/Reducer_Expression/Reducer_Expression.res | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/packages/squiggle-lang/src/rescript/Reducer/Reducer_Dispatch/Reducer_Dispatch_BuiltIn.res b/packages/squiggle-lang/src/rescript/Reducer/Reducer_Dispatch/Reducer_Dispatch_BuiltIn.res index 01ce67cb..21c91dc2 100644 --- a/packages/squiggle-lang/src/rescript/Reducer/Reducer_Dispatch/Reducer_Dispatch_BuiltIn.res +++ b/packages/squiggle-lang/src/rescript/Reducer/Reducer_Dispatch/Reducer_Dispatch_BuiltIn.res @@ -58,7 +58,7 @@ let callInternal = (call: functionCall): result<'b, errorValue> => { } /* - Lisp engine uses Result monad while reducing expressions + Reducer uses Result monad while reducing expressions */ let dispatch = (call: functionCall): result => try { diff --git a/packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res b/packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res index ee1495d9..8498c294 100644 --- a/packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res +++ b/packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res @@ -11,7 +11,7 @@ type expressionValue = ExpressionValue.expressionValue type t = expression /* - Shows the Lisp Code as text lisp code + Shows the expression as text of expression */ let rec toString = expression => switch expression { @@ -31,7 +31,7 @@ let toStringResult = codeResult => } /* - Converts a MathJs code to Lisp Code + Converts a MathJs code to expression */ let parse_ = (expr: string, parser, converter): result => expr->parser->Result.flatMap(node => converter(node)) @@ -167,13 +167,13 @@ let evalWBindingsExpression = (aExpression, bindings): result { parse(codeText)->Result.flatMap(code => code->evalWBindingsExpression(bindings)) } /* - Evaluates MathJs code via Lisp and answers the result + Evaluates MathJs code via Reducer and answers the result */ let eval = (code: string) => evalWBindings(code, defaultBindings)