From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 29 Mar 2016 23:42:05 +0000 (-0700)
Subject: runtime/world-report.scm (ticks->string): parameterize* a param.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~63
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1128f8e7bd02ed3462ba95e80b77dfca61eb2475;p=mit-scheme.git

runtime/world-report.scm (ticks->string): parameterize* a param.
---

diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm
index 3cf22f7b0..22bc5a07c 100644
--- a/src/runtime/world-report.scm
+++ b/src/runtime/world-report.scm
@@ -57,7 +57,7 @@ USA.
     (thread-report flags port)))
 
 (define (ticks->string ticks)
-  (parameterize* (list (cons flonum-unparser-cutoff '(absolute 3)))
+  (parameterize* (list (cons param:flonum-unparser-cutoff '(absolute 3)))
     (lambda ()
       (number->string (internal-time/ticks->seconds ticks) 10))))