From 32d119dfe655bd2b473aff2ec8c6d17a3e963ee4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 8 Mar 2018 15:37:54 +0000 Subject: [PATCH] Correct name of integer->integer-bytes in contract error message --- racket/src/racket/src/numstr.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/racket/src/numstr.c b/racket/src/racket/src/numstr.c index 9001a275d0..dacf640da0 100644 --- a/racket/src/racket/src/numstr.c +++ b/racket/src/racket/src/numstr.c @@ -2372,7 +2372,7 @@ static Scheme_Object *integer_to_bytes(int argc, Scheme_Object *argv[]) offset = 0; if (offset + size > SCHEME_BYTE_STRLEN_VAL(s)) { - scheme_contract_error("integer-bytes->integer", + scheme_contract_error("integer->integer-bytes", "byte string length is shorter than starting position plus size", "byte string length", 1, scheme_make_integer(SCHEME_BYTE_STRLEN_VAL(s)), "starting position", 1, scheme_make_integer(offset),