From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 1 Nov 2010 06:33:58 +0000 (+0000)
Subject: Fix name of UPDATE-FLOAT-ENVIRONMENT primitive's C procedure.
X-Git-Tag: 20101212-Gtk~20
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ac2525903fb568fe4629b65181275998b59affb;p=mit-scheme.git

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

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