From 8ac2525903fb568fe4629b65181275998b59affb Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 1 Nov 2010 06:33:58 +0000 Subject: [PATCH] Fix name of UPDATE-FLOAT-ENVIRONMENT primitive's C procedure. --- src/microcode/floenv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/microcode/floenv.c b/src/microcode/floenv.c index 143c9ac00..9d3978f55 100644 --- a/src/microcode/floenv.c +++ b/src/microcode/floenv.c @@ -161,7 +161,7 @@ DEFINE_PRIMITIVE ("DEFER-FLOAT-EXCEPTIONS", Prim_defer_float_exceptions, 0, 0, 0 #endif } -DEFINE_PRIMITIVE ("UPDATE-FLOAT-ENVIRONMENT", Prim_restore_float_environment, 1, 1, 0) +DEFINE_PRIMITIVE ("UPDATE-FLOAT-ENVIRONMENT", Prim_update_float_environment, 1, 1, 0) { PRIMITIVE_HEADER (1); #ifdef HAVE_FEUPDATEENV -- 2.25.1