Scheme_Type scheme_make_type(const char *name)
{
Scheme_Type newtype;
if (!type_names)
init_type_arrays();
#ifdef MZ_USE_PLACES
mzrt_mutex_lock(type_array_mutex);
#endif
if (maxtype == allocmax) {
/* Expand arrays */
void *naya;
intptr_t n;
allocmax += 20;
naya = malloc(allocmax * sizeof(char *));
memcpy(naya, type_names, maxtype * sizeof(char *));
free(type_names);
type_names = (char **)naya;
naya = malloc(n = allocmax * sizeof(Scheme_Type_Reader));
memset((char *)naya, 0, n);
memcpy(naya, scheme_type_readers, maxtype * sizeof(Scheme_Type_Reader));
free(scheme_type_readers);
scheme_type_readers = (Scheme_Type_Reader *)naya;
naya = malloc(n = allocmax * sizeof(Scheme_Type_Writer));
memset((char *)naya, 0, n);
memcpy(naya, scheme_type_writers, maxtype * sizeof(Scheme_Type_Writer));
free(scheme_type_writers);
scheme_type_writers = (Scheme_Type_Writer *)naya;
naya = malloc(n = allocmax * sizeof(Scheme_Equal_Proc));
memset((char *)naya, 0, n);
memcpy(naya, scheme_type_equals, maxtype * sizeof(Scheme_Equal_Proc));
free(scheme_type_equals);
scheme_type_equals = (Scheme_Equal_Proc *)naya;
naya = malloc(n = allocmax * sizeof(Scheme_Primary_Hash_Proc));
memset((char *)naya, 0, n);
memcpy(naya, scheme_type_hash1s, maxtype * sizeof(Scheme_Primary_Hash_Proc));
free(scheme_type_hash1s);
scheme_type_hash1s = (Scheme_Primary_Hash_Proc *)naya;
naya = malloc(n = allocmax * sizeof(Scheme_Secondary_Hash_Proc));
memset((char *)naya, 0, n);
memcpy(naya, scheme_type_hash2s, maxtype * sizeof(Scheme_Secondary_Hash_Proc));
free(scheme_type_hash2s);
scheme_type_hash2s = (Scheme_Secondary_Hash_Proc *)naya;
#ifdef MEMORY_COUNTING_ON
scheme_type_table_count += 20 * (sizeof(Scheme_Type_Reader)
+ sizeof(Scheme_Type_Writer));
scheme_misc_count += (20 * sizeof(char *));
#endif
}
{
char *tn;
int len;
len = strlen(name) + 1;
tn = (char *)malloc(len);
memcpy(tn, name, len);
type_names[maxtype] = tn;
}
newtype = maxtype;
maxtype++;
#ifdef MZ_USE_PLACES
mzrt_mutex_unlock(type_array_mutex);
#endif
return newtype;
}
void
scheme_init_type ()
{
if (!type_names)
init_type_arrays();
#define set_name(t, n) type_names[t] = n
set_name(scheme_true_type, "<true>");
set_name(scheme_false_type, "<false>");
set_name(scheme_char_type, "<char>");
set_name(scheme_local_type, "<local-code>");
set_name(scheme_local_unbox_type, "<local-unbox-code>");
set_name(scheme_variable_type, "<global-variable-code>");
set_name(scheme_toplevel_type, "<variable-code>");
set_name(scheme_module_variable_type, "<module-variable-code>");
set_name(scheme_application_type, "<application-code>");
set_name(scheme_application2_type, "<unary-application-code>");
set_name(scheme_application3_type, "<binary-application-code>");
set_name(scheme_compiled_unclosed_procedure_type, "<procedure-semi-code>");
set_name(scheme_unclosed_procedure_type, "<procedure-code>");
set_name(scheme_branch_type, "<branch-code>");
set_name(scheme_sequence_type, "<sequence-code>");
set_name(scheme_with_cont_mark_type, "<with-continuation-mark-code>");
set_name(scheme_quote_syntax_type, "<quote-syntax-code>");
set_name(scheme_define_values_type, "<define-values-code>");
set_name(scheme_define_syntaxes_type, "<define-syntaxes-code>");
set_name(scheme_define_for_syntax_type, "<define-for-syntax-code>");
set_name(scheme_begin0_sequence_type, "<begin0-code>");
set_name(scheme_splice_sequence_type, "<splicing-begin-code>");
set_name(scheme_module_type, "<module-code>");
set_name(scheme_set_bang_type, "<set!-code>");
set_name(scheme_boxenv_type, "<boxenv-code>");
set_name(scheme_require_form_type, "<require-code>");
set_name(scheme_varref_form_type, "<varref-code>");
set_name(scheme_apply_values_type, "<apply-values-code>");
set_name(scheme_case_lambda_sequence_type, "<case-lambda-code>");
set_name(scheme_let_value_type, "<let-value-code>");
set_name(scheme_let_void_type, "<let-void-code>");
set_name(scheme_compiled_let_value_type, "<let-value-semi-code>");
set_name(scheme_compiled_let_void_type, "<let-void-semi-code>");
set_name(scheme_compiled_toplevel_type, "<variable-semi-code>");
set_name(scheme_compiled_quote_syntax_type, "<quote-syntax-semi-code>");
set_name(scheme_letrec_type, "<letrec-code>");
set_name(scheme_let_one_type, "<let-one-code>");
set_name(scheme_quote_compilation_type, "<quote-code>");
set_name(scheme_eval_waiting_type, "<eval-waiting>");
set_name(scheme_void_type, "<void>");
set_name(scheme_prim_type, "<primitive>");
set_name(scheme_closed_prim_type, "<primitive-closure>");
set_name(scheme_closure_type, "<procedure>");
set_name(scheme_native_closure_type, "<procedure>");
set_name(scheme_cont_type, "<continuation>");
set_name(scheme_tail_call_waiting_type, "<tail-call-waiting>");
set_name(scheme_null_type, "<empty-list>");
set_name(scheme_pair_type, "<pair>");
set_name(scheme_mutable_pair_type, "<mutable-pair>");
set_name(scheme_raw_pair_type, "<raw-pair>");
set_name(scheme_box_type, "<box>");
set_name(scheme_integer_type, "<fixnum-integer>");
set_name(scheme_double_type, "<inexact-number>");
set_name(scheme_float_type, "<inexact-number*>");
set_name(scheme_undefined_type, "<undefined>");
set_name(scheme_eof_type, "<eof>");
set_name(scheme_input_port_type, "<input-port>");
set_name(scheme_output_port_type, "<output-port>");
set_name(scheme_thread_type, "<thread>");
set_name(scheme_char_string_type, "<string>");
set_name(scheme_byte_string_type, "<byte-string>");
set_name(scheme_unix_path_type, "<unix-path>");
set_name(scheme_windows_path_type, "<windows-path>");
set_name(scheme_struct_property_type, "<struct-property>");
set_name(scheme_chaperone_property_type, "<chaperone-property>");
set_name(scheme_structure_type, "<struct>");
set_name(scheme_proc_chaperone_type, "<chaperone>");
set_name(scheme_chaperone_type, "<chaperone>");
#ifdef USE_SENORA_GC
set_name(scheme_proc_struct_type, "<procedure-struct>");
#else
set_name(scheme_proc_struct_type, "<struct>");
#endif
set_name(scheme_symbol_type, "<symbol>");
set_name(scheme_keyword_type, "<keyword>");
set_name(scheme_syntax_compiler_type, "<syntax-compiler>");
set_name(scheme_macro_type, "<macro>");
set_name(scheme_vector_type, "<vector>");
set_name(scheme_flvector_type, "<flvector>");
set_name(scheme_fxvector_type, "<fxvector>");
set_name(scheme_bignum_type, "<bignum-integer>");
set_name(scheme_escaping_cont_type, "<escape-continuation>");
set_name(scheme_sema_type, "<semaphore>");
set_name(scheme_channel_type, "<channel>");
set_name(scheme_channel_put_type, "<channel-put>");
set_name(scheme_hash_table_type, "<hash>");
set_name(scheme_hash_tree_type, "<hash>");
set_name(scheme_bucket_table_type, "<hash>");
set_name(scheme_module_registry_type, "<module-registry>");
set_name(scheme_case_closure_type, "<procedure>");
set_name(scheme_placeholder_type, "<placeholder>");
set_name(scheme_table_placeholder_type, "<hash-table-placeholder>");
set_name(scheme_weak_box_type, "<weak-box>");
set_name(scheme_ephemeron_type, "<ephemeron>");
set_name(scheme_rational_type, "<fractional-number>");
set_name(scheme_complex_type, "<complex-number>");
set_name(scheme_struct_type_type, "<struct-type>");
set_name(scheme_listener_type, "<tcp-listener>");
set_name(scheme_tcp_accept_evt_type, "<tcp-accept-evt>");
set_name(scheme_namespace_type, "<namespace>");
set_name(scheme_config_type, "<parameterization>");
set_name(scheme_will_executor_type, "<will-executor>");
set_name(scheme_random_state_type, "<pseudo-random-generator>");
set_name(scheme_regexp_type, "<regexp>");
set_name(scheme_rename_table_type, "<rename-table>");
set_name(scheme_bucket_type, "<hash-table-bucket>");
set_name(scheme_resolve_prefix_type, "<resolve-prefix>");
set_name(scheme_readtable_type, "<readtable>");
set_name(scheme_compilation_top_type, "<compiled-code>");
set_name(scheme_svector_type, "<short-vector>");
set_name(scheme_custodian_type, "<custodian>");
set_name(scheme_cust_box_type, "<custodian-box>");
set_name(scheme_cont_mark_set_type, "<continuation-mark-set>");
set_name(scheme_cont_mark_chain_type, "<chain>");
set_name(scheme_inspector_type, "<inspector>");
set_name(scheme_stx_type, "<syntax>");
set_name(scheme_stx_offset_type, "<internal-syntax-offset>");
set_name(scheme_expanded_syntax_type, "<expanded-syntax>");
set_name(scheme_set_macro_type, "<set!-transformer>");
set_name(scheme_id_macro_type, "<rename-transformer>");
set_name(scheme_module_index_type, "<module-path-index>");
set_name(scheme_subprocess_type, "<subprocess>");
set_name(scheme_cpointer_type, "<cpointer>");
set_name(scheme_wrap_chunk_type, "<wrap-chunk>");
set_name(scheme_security_guard_type, "<security-guard>");
set_name(scheme_indent_type, "<internal-indentation>");
set_name(scheme_udp_type, "<udp-socket>");
set_name(scheme_udp_evt_type, "<udp-socket-evt>");
set_name(scheme_evt_set_type, "<evt-set>");
set_name(scheme_wrap_evt_type, "<evt>");
set_name(scheme_handle_evt_type, "<evt>");
set_name(scheme_nack_evt_type, "<evt>");
set_name(scheme_nack_guard_evt_type, "<evt>");
set_name(scheme_poll_evt_type, "<evt>");
set_name(scheme_semaphore_repost_type, "<semaphore-peek>");
set_name(scheme_alarm_type, "<alarm-evt>");
set_name(scheme_progress_evt_type, "<progress-evt>");
set_name(scheme_write_evt_type, "<write-evt>");
set_name(scheme_always_evt_type, "<always-evt>");
set_name(scheme_never_evt_type, "<never-evt>");
set_name(scheme_thread_recv_evt_type, "<thread-receive-evt>");
set_name(scheme_thread_resume_type, "<thread-resume-evt>");
set_name(scheme_thread_suspend_type, "<thread-suspend-evt>");
set_name(scheme_thread_dead_type, "<thread-dead-evt>");
set_name(scheme_thread_set_type, "<thread-set>");
set_name(scheme_thread_cell_type, "<thread-cell>");
set_name(scheme_thread_cell_values_type, "<thread-cell-values>");
set_name(scheme_prompt_tag_type, "<continuation-prompt-tag>");
set_name(scheme_string_converter_type, "<string-converter>");
set_name(scheme_channel_syncer_type, "<channel-syncer>");
set_name(scheme_special_comment_type, "<special-comment>");
set_name(scheme_global_ref_type, "<variable-reference>");
set_name(scheme_delay_syntax_type, "<on-demand-stub>");
set_name(scheme_intdef_context_type, "<internal-definition-context>");
set_name(scheme_lexical_rib_type, "<internal:lexical-rib>");
set_name(scheme_already_comp_type, "<internal:already-compiled>");
set_name(scheme_logger_type, "<logger>");
set_name(scheme_log_reader_type, "<log-receiver>");
set_name(scheme_future_type, "<future>");
set_name(_scheme_values_types_, "<resurrected>");
set_name(_scheme_compiled_values_types_, "<internal>");
#ifdef MZ_GC_BACKTRACE
set_name(scheme_rt_meta_cont, "<meta-continuation>");
#endif
set_name(scheme_place_type, "<place>");
set_name(scheme_place_async_channel_type, "<place_async_channel>");
set_name(scheme_place_bi_channel_type, "<place_bidirectional_channel>");
}
void
scheme_init_type ()
{
if (!type_names)
init_type_arrays();
#define set_name(t, n) type_names[t] = n
set_name(scheme_true_type, "<true>");
set_name(scheme_false_type, "<false>");
set_name(scheme_char_type, "<char>");
set_name(scheme_local_type, "<local-code>");
set_name(scheme_local_unbox_type, "<local-unbox-code>");
set_name(scheme_variable_type, "<global-variable-code>");
set_name(scheme_toplevel_type, "<variable-code>");
set_name(scheme_static_toplevel_type, "<variable-code>");
set_name(scheme_application_type, "<application-code>");
set_name(scheme_application2_type, "<unary-application-code>");
set_name(scheme_application3_type, "<binary-application-code>");
set_name(scheme_ir_lambda_type, "<procedure-semi-code>");
set_name(scheme_lambda_type, "<procedure-code>");
set_name(scheme_branch_type, "<branch-code>");
set_name(scheme_sequence_type, "<sequence-code>");
set_name(scheme_with_cont_mark_type, "<with-continuation-mark-code>");
set_name(scheme_define_values_type, "<define-values-code>");
set_name(scheme_begin0_sequence_type, "<begin0-code>");
set_name(scheme_inline_variant_type, "<inline-variant-code>");
set_name(scheme_set_bang_type, "<set!-code>");
set_name(scheme_boxenv_type, "<boxenv-code>");
set_name(scheme_varref_form_type, "<varref-code>");
set_name(scheme_apply_values_type, "<apply-values-code>");
set_name(scheme_with_immed_mark_type, "<with-immediate-mark-code>");
set_name(scheme_case_lambda_sequence_type, "<case-lambda-code>");
set_name(scheme_let_value_type, "<let-value-code>");
set_name(scheme_let_void_type, "<let-void-code>");
set_name(scheme_ir_local_type, "<local-semi-code>");
set_name(scheme_ir_let_value_type, "<let-value-semi-code>");
set_name(scheme_ir_let_header_type, "<let-header-semi-code>");
set_name(scheme_ir_toplevel_type, "<variable-semi-code>");
set_name(scheme_letrec_type, "<letrec-code>");
set_name(scheme_let_one_type, "<let-one-code>");
set_name(scheme_quote_compilation_type, "<quote-code>");
set_name(scheme_linklet_type, "<linklet>");
set_name(scheme_instance_type, "<instance>");
set_name(scheme_linklet_directory_type, "<linklet-directory>");
set_name(scheme_linklet_bundle_type, "<linklet-bundle>");
set_name(scheme_eval_waiting_type, "<eval-waiting>");
set_name(scheme_void_type, "<void>");
set_name(scheme_prim_type, "<primitive>");
set_name(scheme_closed_prim_type, "<primitive-closure>");
set_name(scheme_closure_type, "<procedure>");
set_name(scheme_native_closure_type, "<procedure>");
set_name(scheme_cont_type, "<continuation>");
set_name(scheme_tail_call_waiting_type, "<tail-call-waiting>");
set_name(scheme_null_type, "<empty-list>");
set_name(scheme_pair_type, "<pair>");
set_name(scheme_mutable_pair_type, "<mutable-pair>");
set_name(scheme_raw_pair_type, "<raw-pair>");
set_name(scheme_box_type, "<box>");
set_name(scheme_integer_type, "<fixnum-integer>");
set_name(scheme_double_type, "<inexact-number>");
set_name(scheme_long_double_type, "<extflonum>");
set_name(scheme_float_type, "<inexact-number*>");
set_name(scheme_undefined_type, "<unsafe-undefined>");
set_name(scheme_eof_type, "<eof>");
set_name(scheme_input_port_type, "<input-port>");
set_name(scheme_output_port_type, "<output-port>");
set_name(scheme_thread_type, "<thread>");
set_name(scheme_char_string_type, "<string>");
set_name(scheme_byte_string_type, "<byte-string>");
set_name(scheme_unix_path_type, "<unix-path>");
set_name(scheme_windows_path_type, "<windows-path>");
set_name(scheme_struct_property_type, "<struct-property>");
set_name(scheme_chaperone_property_type, "<chaperone-property>");
set_name(scheme_structure_type, "<struct>");
set_name(scheme_proc_chaperone_type, "<chaperone>");
set_name(scheme_chaperone_type, "<chaperone>");
#ifdef USE_SENORA_GC
set_name(scheme_proc_struct_type, "<procedure-struct>");
#else
set_name(scheme_proc_struct_type, "<struct>");
#endif
set_name(scheme_symbol_type, "<symbol>");
set_name(scheme_keyword_type, "<keyword>");
set_name(scheme_primitive_syntax_type, "<primitive-syntax>");
set_name(scheme_macro_type, "<macro>");
set_name(scheme_vector_type, "<vector>");
set_name(scheme_flvector_type, "<flvector>");
set_name(scheme_extflvector_type, "<extflvector>");
set_name(scheme_fxvector_type, "<fxvector>");
set_name(scheme_bignum_type, "<bignum-integer>");
set_name(scheme_escaping_cont_type, "<escape-continuation>");
set_name(scheme_sema_type, "<semaphore>");
set_name(scheme_channel_type, "<channel>");
set_name(scheme_channel_put_type, "<channel-put>");
set_name(scheme_hash_table_type, "<hash>");
set_name(scheme_hash_tree_type, "<hash>");
set_name(scheme_eq_hash_tree_type, "<hash>");
set_name(scheme_eqv_hash_tree_type, "<hash>");
set_name(scheme_hash_tree_indirection_type, "<hash>");
set_name(scheme_hash_tree_subtree_type, "<hash-node>");
set_name(scheme_hash_tree_collision_type, "<hash-node>");
set_name(scheme_bucket_table_type, "<hash>");
set_name(scheme_case_closure_type, "<procedure>");
set_name(scheme_placeholder_type, "<placeholder>");
set_name(scheme_table_placeholder_type, "<hash-table-placeholder>");
set_name(scheme_weak_box_type, "<weak-box>");
set_name(scheme_ephemeron_type, "<ephemeron>");
set_name(scheme_rational_type, "<fractional-number>");
set_name(scheme_complex_type, "<complex-number>");
set_name(scheme_struct_type_type, "<struct-type>");
set_name(scheme_listener_type, "<tcp-listener>");
set_name(scheme_tcp_accept_evt_type, "<tcp-accept-evt>");
set_name(scheme_filesystem_change_evt_type, "<filesystem-change-evt>");
set_name(scheme_env_type, "<env>");
set_name(scheme_config_type, "<parameterization>");
set_name(scheme_will_executor_type, "<will-executor>");
set_name(scheme_random_state_type, "<pseudo-random-generator>");
set_name(scheme_regexp_type, "<regexp>");
set_name(scheme_bucket_type, "<hash-table-bucket>");
set_name(scheme_prefix_type, "<runtime-prefix>");
set_name(scheme_readtable_type, "<readtable>");
set_name(scheme_svector_type, "<short-vector>");
set_name(scheme_custodian_type, "<custodian>");
set_name(scheme_cust_box_type, "<custodian-box>");
set_name(scheme_plumber_type, "<plumber>");
set_name(scheme_plumber_handle_type, "<plumber-flush-handle>");
set_name(scheme_cont_mark_set_type, "<continuation-mark-set>");
set_name(scheme_cont_mark_chain_type, "<chain>");
set_name(scheme_inspector_type, "<inspector>");
set_name(scheme_stx_type, "<correlated>");
set_name(scheme_subprocess_type, "<subprocess>");
set_name(scheme_cpointer_type, "<cpointer>");
set_name(scheme_security_guard_type, "<security-guard>");
set_name(scheme_indent_type, "<internal-indentation>");
set_name(scheme_udp_type, "<udp-socket>");
set_name(scheme_udp_evt_type, "<udp-socket-evt>");
set_name(scheme_evt_set_type, "<evt-set>");
set_name(scheme_wrap_evt_type, "<evt>");
set_name(scheme_handle_evt_type, "<evt>");
set_name(scheme_replace_evt_type, "<evt>");
set_name(scheme_nack_evt_type, "<evt>");
set_name(scheme_nack_guard_evt_type, "<evt>");
set_name(scheme_poll_evt_type, "<evt>");
set_name(scheme_semaphore_repost_type, "<semaphore-peek>");
set_name(scheme_alarm_type, "<alarm-evt>");
set_name(scheme_progress_evt_type, "<progress-evt>");
set_name(scheme_write_evt_type, "<write-evt>");
set_name(scheme_always_evt_type, "<always-evt>");
set_name(scheme_never_evt_type, "<never-evt>");
set_name(scheme_thread_recv_evt_type, "<thread-receive-evt>");
set_name(scheme_port_closed_evt_type, "<port-closed-evt>");
set_name(scheme_thread_resume_type, "<thread-resume-evt>");
set_name(scheme_thread_suspend_type, "<thread-suspend-evt>");
set_name(scheme_thread_dead_type, "<thread-dead-evt>");
set_name(scheme_thread_set_type, "<thread-set>");
set_name(scheme_thread_cell_type, "<thread-cell>");
set_name(scheme_thread_cell_values_type, "<thread-cell-values>");
set_name(scheme_prompt_tag_type, "<continuation-prompt-tag>");
set_name(scheme_continuation_mark_key_type, "<continuation-mark-key>");
set_name(scheme_string_converter_type, "<string-converter>");
set_name(scheme_channel_syncer_type, "<channel-syncer>");
set_name(scheme_global_ref_type, "<variable-reference>");
set_name(scheme_delay_syntax_type, "<on-demand-stub>");
set_name(scheme_logger_type, "<logger>");
set_name(scheme_log_reader_type, "<log-receiver>");
set_name(scheme_future_type, "<future>");
set_name(scheme_fsemaphore_type, "<fsemaphore>");
set_name(_scheme_values_types_, "<resurrected>");
set_name(_scheme_ir_values_types_, "<internal>");
set_name(scheme_place_type, "<place>");
set_name(scheme_place_async_channel_type, "<place-half-channel>");
set_name(scheme_place_bi_channel_type, "<place-channel>");
set_name(scheme_place_dead_type, "<place-dead-evt>");
set_name(scheme_phantom_bytes_type, "<phantom-bytes>");
set_name(scheme_environment_variables_type, "<environment-variables>");
set_name(scheme_prompt_type, "<prompt>");
set_name(scheme_startup_env_type, "<startup-env>");
set_name(scheme_ctype_type, "<ctype>");
set_name(scheme_unquoted_printing_string_type, "<unquoted-printing-string>");
#ifdef MZ_PRECISE_GC
set_name(scheme_rt_runstack, "<runstack>");
set_name(scheme_rt_meta_cont, "<meta-continuation>");
set_name(scheme_rt_weak_array, "<weak-array>");
set_name(scheme_rt_resolve_info, "<compile-resolve-frame>");
set_name(scheme_rt_unresolve_info, "<compile-unresolve-frame>");
set_name(scheme_rt_optimize_info, "<compile-optimize-frame>");
set_name(scheme_rt_ir_lambda_info, "<compile-lambda-info>");
set_name(scheme_deferred_expr_type, "<compile-letrec-check-deferred>");
set_name(scheme_will_be_lambda_type, "<compile-letrec-check-lambda>");
set_name(scheme_rt_indexed_string, "<string-port-data>");
set_name(scheme_rt_srcloc, "<srcloc>");
set_name(scheme_rt_comp_prefix, "<compile-prefix>");
set_name(scheme_rt_native_code, "<native-code>");
set_name(scheme_rt_native_code_plus_case, "<native-code+case>");
set_name(scheme_rt_sfs_info, "<compile-safe-for-space-frame>");
set_name(scheme_rt_letrec_check_frame, "<compile-letrec-check-frame>");
set_name(scheme_rt_saved_stack, "<saved-stack>");
set_name(scheme_rt_overflow_jmp, "<overflow-jump>");
set_name(scheme_rt_dyn_wind, "<dynamic-wind>");
set_name(scheme_rt_dyn_wind_info, "<dynamic-wind-info>");
set_name(scheme_rt_dyn_wind_cell, "<dynamic-wind-cell>");
set_name(scheme_rt_input_fd, "<input-fd>");
set_name(scheme_rt_pipe, "<pipe>");
set_name(scheme_rt_param_data, "<param-data>");
set_name(scheme_rt_will, "<will>");
set_name(scheme_rt_finalization, "<finalization>");
set_name(scheme_rt_finalizations, "<finalizations>");
set_name(scheme_thread_hop_type, "<thread-hop>");
set_name(scheme_rt_evt, "<internal-evt>");
set_name(scheme_rt_syncing, "<syncing-evt>");
set_name(scheme_rt_user_input, "<user-input>");
set_name(scheme_rt_user_output, "<user-output>");
set_name(scheme_rt_compact_port, "<compact-port>");
set_name(scheme_rt_rx_lazy_string, "<rx-lazy-string>");
set_name(scheme_rt_parameterization, "<internal-parameterization>");
set_name(scheme_rt_delay_load_info, "<delay-load-info>");
set_name(scheme_rt_validate_clearing, "<validate-clearing>");
set_name(scheme_rt_print_params, "<print-params>");
set_name(scheme_rt_comp_env, "<compiler-env>");
#endif
}
