have a server that like does stuff now

2025-10-11 02:07:20 -06:00
parent fa16da8178
commit 6c45f30919
8 changed files with 107 additions and 24 deletions
@@ -46,7 +46,7 @@ rep(String) ->
    case wfc_read:expr(String) of
        {ok, Expr, Rest} ->
            case  wfc_eval:eval(Expr) of
-                {ok, Result, NewContext} ->
+                {ok, Result, _NewContext} ->
                    io:format("result: ~s~n", [wfc_pp:eval_result(Result)]),
                    %io:format("context: ~tw~n", [NewContext]),
                    ok;
@@ -107,10 +107,10 @@ mul([Arg | Rest]) ->
    case to_sentence(Arg) of
        {ok, S} ->
            case mul(Rest) of
-                {ok, S2} -> wfc_sentence:mul(S, S2);
+                {ok, S2} -> {ok, wfc_sentence:mul(S, S2)};
                Error    -> Error
            end;
        Error   -> Error
    end;
 mul([]) ->
-    wfc_sentence:zero().
+    {ok, wfc_sentence:one()}.