Merge pull request #287 from LPCIC/fix-275

fix #275
LPCIC · Nov 22, 2024 · fb0c159 · fb0c159
2 parents 0058048 + 7b953e3
commit fb0c159
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)