From c6408149176aa89e716295d5d76f0b5162de69cd Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 10 Dec 2010 17:34:32 -0700 Subject: [PATCH] fixed typo (wrong arg blamed in error) --- collects/racket/private/string.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/private/string.rkt b/collects/racket/private/string.rkt index 597163ae1e..678dc95baa 100644 --- a/collects/racket/private/string.rkt +++ b/collects/racket/private/string.rkt @@ -15,7 +15,7 @@ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (real->decimal-string n [digits 2]) (unless (exact-nonnegative-integer? digits) - (raise-type-error 'real->decimal-string "exact-nonnegative-integer" n)) + (raise-type-error 'real->decimal-string "exact-nonnegative-integer" digits)) (let* ([e (expt 10 digits)] [num (round (abs (* e (inexact->exact n))))]) (format "~a~a.~a"