From 21484f82d8f8490b5d6997124a5e194b9a95a35a Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 27 Jul 1987 16:55:48 +0000 Subject: [PATCH] Fix bug in LN-FLONUM. --- v7/src/microcode/flonum.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/microcode/flonum.c b/v7/src/microcode/flonum.c index 1fd34e20e..cbc704c9f 100644 --- a/v7/src/microcode/flonum.c +++ b/v7/src/microcode/flonum.c @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/flonum.c,v 9.22 1987/04/16 02:22:34 jinx Rel $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/flonum.c,v 9.23 1987/07/27 16:55:48 jinx Rel $ * * This file contains support for floating point arithmetic. Most * of these primitives have been superceded by generic arithmetic. @@ -189,7 +189,7 @@ Built_In_Primitive(Prim_Ln_Flonum, 1, "LN-FLONUM", 0x77) Arg_1_Type(TC_BIG_FLONUM); Set_Time_Zone(Zone_Math); - if (Arg1 <= 0.0) + if (Get_Float(Arg1) <= 0.0) Primitive_Error(ERR_ARG_1_BAD_RANGE); Flonum_Result(log(Get_Float(Arg1))); } -- 2.25.1