fix #275

LPCIC · Nov 22, 2024 · 7b953e3 · 7b953e3
1 parent 0058048
commit 7b953e3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/API.ml b/src/API.ml
@@ -1158,7 +1158,7 @@ module Calc = struct
     | [ CData x ] when is_float x -> (map float float sqrt x)
     | _ -> type_error "Wrong arguments to sqrt") ;
    register_eval 1 ("sin",["float"]) (function
-    | [ CData x ] when is_float x -> (map float float sqrt x)
+    | [ CData x ] when is_float x -> (map float float sin x)
     | _ -> type_error "Wrong arguments to sin") ;
    register_eval 1 ("cos",["float"]) (function
     | [ CData x ] when is_float x -> (map float float cos x)