X-Git-Url: https://scm.cri.mines-paristech.fr/git/Faustine.git/blobdiff_plain/42d607127a467ca737dd903ad007d50a54533cf0..8e216a8d5f6b094308594009342e53ef122b8062:/interpretor/basic.ml

diff --git a/interpretor/basic.ml b/interpretor/basic.ml
index 1295390..55f0fb5 100644
--- a/interpretor/basic.ml
+++ b/interpretor/basic.ml
@@ -369,11 +369,11 @@ let basic_xor = basic_logic xor;;
 let rec basic_adjust : (float -> float) -> basic -> basic = 
   fun oper -> fun b ->
     match b with
-    |N i -> R (float_of_int i)
-    |R f -> R (floor f)
+    |N i -> R (oper (float_of_int i))
+    |R f -> R (oper f)
     |Vec vec -> Vec (new vector vec#size 
 		       (fun_unary (basic_adjust oper) vec#nth))
-    |Zero -> R 0.
+    |Zero -> R (oper 0.)
     |Error -> Error;;
 
 let basic_floor = basic_adjust floor;;