From 2092deab28e06cc0337cd712dcdde3d943e5687f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 4 Aug 2017 10:16:41 -0600 Subject: [PATCH] more corrections for unquoted-printing string addition More repairs to cbfcc904ab. Thanks to Ryan for noticing the problems. --- racket/src/racket/src/error.c | 2 +- racket/src/racket/src/schminc.h | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/racket/src/error.c b/racket/src/racket/src/error.c index 4ac60c6b64..7be51d110f 100644 --- a/racket/src/racket/src/error.c +++ b/racket/src/racket/src/error.c @@ -2226,7 +2226,7 @@ static Scheme_Object *unquoted_printing_string(int argc, Scheme_Object **argv) Scheme_Object *o; if (!SCHEME_CHAR_STRINGP(argv[0])) - scheme_wrong_contract("unquoted-printing-string", "string", 0, argc, argv); + scheme_wrong_contract("unquoted-printing-string", "string?", 0, argc, argv); o = scheme_alloc_small_object(); o->type = scheme_unquoted_printing_string_type; diff --git a/racket/src/racket/src/schminc.h b/racket/src/racket/src/schminc.h index bae97a0b38..7f3fbf39c4 100644 --- a/racket/src/racket/src/schminc.h +++ b/racket/src/racket/src/schminc.h @@ -12,7 +12,7 @@ finally, set EXPECTED_PRIM_COUNT to the right value and USE_COMPILED_STARTUP to 1 and `make' again. */ -#define USE_COMPILED_STARTUP 0 +#define USE_COMPILED_STARTUP 1 #define EXPECTED_PRIM_COUNT 1159 #define EXPECTED_UNSAFE_COUNT 141