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

fix GC handling of unquoted-printing strings

Browse Source 
Adds missing change to cbfcc904ab.
This commit is contained in:
Matthew Flatt 2017-08-04 09:18:15 -06:00
parent 05c5c4fa3e
commit f6e863a4dd
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-test-core/tests/racket/print.rktl
View File

@ -248,6 +248,13 @@
void)
(get-output-string (current-error-port)))))
;; Check GC interaction:
(let ([l (for/list ([i 100])
(unquoted-printing-string "1 2 3"))])
(collect-garbage)
(for ([ups (in-list l)])
(test "1 2 3" format "~s" ups)))
;; ----------------------------------------
(let ([p (build-path (current-directory) "something")])

4
racket/src/racket/src/type.c
View File

@ -327,6 +327,8 @@ scheme_init_type ()
set_name(scheme_environment_variables_type, "<environment-variables>");
set_name(scheme_unquoted_printing_string_type, "<unquoted-printing-string>");
#ifdef MZ_GC_BACKTRACE
set_name(scheme_rt_runstack, "<runstack>");
set_name(scheme_rt_meta_cont, "<meta-continuation>");
@ -764,6 +766,8 @@ void scheme_register_traversers(void)
GC_REG_TRAV(scheme_syntax_property_preserve_type, small_object);
GC_REG_TRAV(scheme_plumber_handle_type, twoptr_obj);
GC_REG_TRAV(scheme_unquoted_printing_string_type, small_object);
}
END_XFORM_SKIP;