fix find-seconds error reporting to say "find-seconds" instead

of "find-secs"
This commit is contained in:
Robby Findler 2013-02-03 07:27:42 -06:00
parent 573924e3ac
commit 9c3afd455a

View File

@ -272,7 +272,7 @@
(define (find-seconds sec min hour day month year [local-time? #t])
(define (signal-error msg)
(error 'find-secs (string-append
(error 'find-seconds (string-append
msg
" (inputs: ~a ~a ~a ~a ~a ~a)")
sec min hour day month year))