Fix name of UPDATE-FLOAT-ENVIRONMENT primitive's C procedure.

diff --git a/src/microcode/floenv.c b/src/microcode/floenv.c
index 143c9ac0072da4ea6069a7814aca8c728aeae486..9d3978f555f744c31707e42a03fe657dd651d7a6 100644 (file)
--- 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