From 9c3afd455a7fa72c0ebc4771a266b58ff4a5b7fe Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 3 Feb 2013 07:27:42 -0600 Subject: [PATCH] fix find-seconds error reporting to say "find-seconds" instead of "find-secs" --- collects/racket/date.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/racket/date.rkt b/collects/racket/date.rkt index 18d164b410..aef9b53ee4 100644 --- a/collects/racket/date.rkt +++ b/collects/racket/date.rkt @@ -272,9 +272,9 @@ (define (find-seconds sec min hour day month year [local-time? #t]) (define (signal-error msg) - (error 'find-secs (string-append - msg - " (inputs: ~a ~a ~a ~a ~a ~a)") + (error 'find-seconds (string-append + msg + " (inputs: ~a ~a ~a ~a ~a ~a)") sec min hour day month year)) (let loop ([below-secs (get-min-seconds)] [secs (floor (/ (+ (get-min-seconds) (get-max-seconds)) 2))]