瀏覽代碼

[eval] fix OCaml version difference

Simon Krajewski 4 年之前
父節點
當前提交
ce729d966e
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/macro/eval/evalStdLib.ml

+ 1 - 1
src/macro/eval/evalStdLib.ml

@@ -2171,7 +2171,7 @@ module StdStd = struct
 	)
 	)
 
 
 	let parseFloat = vfun1 (fun v ->
 	let parseFloat = vfun1 (fun v ->
-		try vfloat (Numeric.parse_float (decode_string v)) with _ -> vfloat Float.nan
+		try vfloat (Numeric.parse_float (decode_string v)) with _ -> vfloat nan
 	)
 	)
 
 
 	let random = vfun1 (fun v ->
 	let random = vfun1 (fun v ->