From e7cc30a79a58aa58f9e101a1c748f9f7d90fe7c0 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 23 Jun 2015 14:41:02 -0700 Subject: [PATCH] svm: typo --- src/compiler/machines/svm/assembler-runtime.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1