From d0c9a894fb03e77628ec276b873e9f17726a5d92 Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Sat, 11 Jul 2015 10:24:08 -0300 Subject: [PATCH] Mark many port primitives as non-cm --- racket/src/racket/src/portfun.c | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/racket/src/racket/src/portfun.c b/racket/src/racket/src/portfun.c index 9402fe311c..42083c37be 100644 --- a/racket/src/racket/src/portfun.c +++ b/racket/src/racket/src/portfun.c @@ -242,20 +242,20 @@ scheme_init_port_fun(Scheme_Env *env) GLOBAL_FOLDING_PRIM("string-port?", string_port_p, 1, 1, 1, env); GLOBAL_FOLDING_PRIM("terminal-port?", scheme_terminal_port_p, 1, 1, 1, env); - GLOBAL_PRIM_W_ARITY("port-closed?", port_closed_p, 1, 1, env); - GLOBAL_PRIM_W_ARITY("open-input-file", open_input_file, 1, 3, env); - GLOBAL_PRIM_W_ARITY("open-input-bytes", open_input_byte_string, 1, 2, env); - GLOBAL_PRIM_W_ARITY("open-input-string", open_input_char_string, 1, 2, env); - GLOBAL_PRIM_W_ARITY("open-output-file", open_output_file, 1, 3, env); - GLOBAL_PRIM_W_ARITY("open-output-bytes", open_output_string, 0, 1, env); - GLOBAL_PRIM_W_ARITY("open-output-string", open_output_string, 0, 1, env); - GLOBAL_PRIM_W_ARITY("get-output-bytes", get_output_byte_string, 1, 4, env); - GLOBAL_PRIM_W_ARITY("get-output-string", get_output_char_string, 1, 1, env); - GLOBAL_PRIM_W_ARITY("open-input-output-file", open_input_output_file, 1, 3, env); - GLOBAL_PRIM_W_ARITY("close-input-port", close_input_port, 1, 1, env); - GLOBAL_PRIM_W_ARITY("close-output-port", close_output_port, 1, 1, env); - GLOBAL_PRIM_W_ARITY("make-input-port", make_input_port, 4, 10, env); - GLOBAL_PRIM_W_ARITY("make-output-port", make_output_port, 4, 11, env); + GLOBAL_NONCM_PRIM("port-closed?", port_closed_p, 1, 1, env); + GLOBAL_NONCM_PRIM("open-input-file", open_input_file, 1, 3, env); + GLOBAL_NONCM_PRIM("open-input-bytes", open_input_byte_string, 1, 2, env); + GLOBAL_NONCM_PRIM("open-input-string", open_input_char_string, 1, 2, env); + GLOBAL_NONCM_PRIM("open-output-file", open_output_file, 1, 3, env); + GLOBAL_NONCM_PRIM("open-output-bytes", open_output_string, 0, 1, env); + GLOBAL_NONCM_PRIM("open-output-string", open_output_string, 0, 1, env); + GLOBAL_NONCM_PRIM("get-output-bytes", get_output_byte_string, 1, 4, env); + GLOBAL_NONCM_PRIM("get-output-string", get_output_char_string, 1, 1, env); + GLOBAL_NONCM_PRIM("open-input-output-file", open_input_output_file, 1, 3, env); + GLOBAL_NONCM_PRIM("close-input-port", close_input_port, 1, 1, env); + GLOBAL_NONCM_PRIM("close-output-port", close_output_port, 1, 1, env); + GLOBAL_NONCM_PRIM("make-input-port", make_input_port, 4, 10, env); + GLOBAL_NONCM_PRIM("make-output-port", make_output_port, 4, 11, env); GLOBAL_PRIM_W_ARITY2("call-with-output-file", call_with_output_file, 2, 4, 0, -1, env); GLOBAL_PRIM_W_ARITY2("call-with-input-file", call_with_input_file, 2, 3, 0, -1, env); @@ -264,7 +264,7 @@ scheme_init_port_fun(Scheme_Env *env) GLOBAL_PRIM_W_ARITY2("load", load, 1, 1, 0, -1, env); GLOBAL_PRIM_W_ARITY2("make-pipe", sch_pipe, 0, 3, 2, 2, env); GLOBAL_PRIM_W_ARITY2("port-next-location", port_next_location, 1, 1, 3, 3, env); - GLOBAL_PRIM_W_ARITY("set-port-next-location!", set_port_next_location, 4, 4, env); + GLOBAL_NONCM_PRIM("set-port-next-location!", set_port_next_location, 4, 4, env); GLOBAL_PRIM_W_ARITY("filesystem-change-evt", filesystem_change_evt, 1, 2, env); GLOBAL_NONCM_PRIM("filesystem-change-evt?", filesystem_change_evt_p, 1, 1, env);