From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 23 Jun 2015 21:41:02 +0000 (-0700)
Subject: svm: typo
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e7cc30a79a58aa58f9e101a1c748f9f7d90fe7c0;p=mit-scheme.git

svm: typo
---

diff --git a/src/compiler/machines/svm/assembler-runtime.scm b/src/compiler/machines/svm/assembler-runtime.scm
index 563ff7c93..f61414adf 100644
--- a/src/compiler/machines/svm/assembler-runtime.scm
+++ b/src/compiler/machines/svm/assembler-runtime.scm
@@ -781,7 +781,7 @@ USA.
 		(lambda (x e)
 		  (let ((n (inexact->exact x)))
 		    (if (not (exact-nonnegative-integer? n))
-			(error "Flonum decode failed:" x))
+			(error "Flonum encode failed:" x))
 		    (values n e)))))
 	   (lambda (x)
 	     (if (and (> x 1)