suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more corrections for unquoted-printing string addition

Browse Source 
More repairs to cbfcc904ab. Thanks to Ryan for noticing
the problems.
This commit is contained in:
Matthew Flatt 2017-08-04 10:16:41 -06:00
parent d062212ebc
commit 2092deab28
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/error.c
View File

@ -2226,7 +2226,7 @@ static Scheme_Object *unquoted_printing_string(int argc, Scheme_Object **argv)
Scheme_Object *o; Scheme_Object *o;
if (!SCHEME_CHAR_STRINGP(argv[0])) 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 = scheme_alloc_small_object();
o->type = scheme_unquoted_printing_string_type; o->type = scheme_unquoted_printing_string_type;

2
racket/src/racket/src/schminc.h
View File

@ -12,7 +12,7 @@
finally, set EXPECTED_PRIM_COUNT to the right value and finally, set EXPECTED_PRIM_COUNT to the right value and
USE_COMPILED_STARTUP to 1 and `make' again. */ 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_PRIM_COUNT 1159
#define EXPECTED_UNSAFE_COUNT 141 #define EXPECTED_UNSAFE_COUNT 141