svm: typo

diff --git a/src/compiler/machines/svm/assembler-runtime.scm b/src/compiler/machines/svm/assembler-runtime.scm
index 563ff7c9382cfa2aeed90182082ad9f8236f1d20..f61414adf7e0827494a04ebf7c4bc326fead5313 100644 (file)
--- 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)