Correct name of integer->integer-bytes in contract error message

This commit is contained in:
Tony Garnock-Jones 2018-03-08 15:37:54 +00:00
parent 407c1b49c5
commit 32d119dfe6

View File

@ -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),