From 7b953e3b4c202248fede44f47bfaf9cae3e826ab Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 22 Nov 2024 13:27:08 +0100 Subject: [PATCH] fix #275 --- src/API.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/API.ml b/src/API.ml index 2eb81ffe..52631993 100644 --- 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)