From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Jan 2017 19:54:31 +0000 (-0800)
Subject: Fix missed parameterization reference.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~138
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e39d4d634fc2172b523f4f37fa4efc86c3c772b5;p=mit-scheme.git

Fix missed parameterization reference.
---

diff --git a/src/imail/imail-util.scm b/src/imail/imail-util.scm
index be1d565ae..ef546ff16 100644
--- a/src/imail/imail-util.scm
+++ b/src/imail/imail-util.scm
@@ -249,7 +249,7 @@ USA.
   (if (< n (expt 10 (- k 1)))
       (string-append (string-pad-left (number->string n) (- k 1)) " ")
       (let ((s
-	     (parameterize* (list (cons flonum-unparser-cutoff
+	     (parameterize* (list (cons param:flonum-unparser-cutoff
 					`(RELATIVE ,k ENGINEERING)))
 	       (lambda ()
 		 (number->string (exact->inexact n))))))