remove procedures originally introduced for compatibility

This commit is contained in:
Yuichi Nishiwaki 2014-08-25 17:41:01 +09:00
parent 52c377768e
commit a03efeb0d3
2 changed files with 0 additions and 4 deletions

View File

@ -897,9 +897,6 @@ pic_init_number(pic_state *pic)
pic_defun(pic, "truncate-quotient", pic_number_trunc_quotient); pic_defun(pic, "truncate-quotient", pic_number_trunc_quotient);
pic_defun(pic, "truncate-remainder", pic_number_trunc_remainder); pic_defun(pic, "truncate-remainder", pic_number_trunc_remainder);
pic_defun(pic, "truncate/", pic_number_trunc2); pic_defun(pic, "truncate/", pic_number_trunc2);
pic_defun(pic, "modulo", pic_number_floor_remainder);
pic_defun(pic, "quotient", pic_number_trunc_quotient);
pic_defun(pic, "remainder", pic_number_trunc_remainder);
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
pic_defun(pic, "gcd", pic_number_gcd); pic_defun(pic, "gcd", pic_number_gcd);

View File

@ -420,5 +420,4 @@ pic_init_str(pic_state *pic)
pic_defun(pic, "string-copy!", pic_str_string_copy_ip); pic_defun(pic, "string-copy!", pic_str_string_copy_ip);
pic_defun(pic, "string-append", pic_str_string_append); pic_defun(pic, "string-append", pic_str_string_append);
pic_defun(pic, "string-fill!", pic_str_string_fill_ip); pic_defun(pic, "string-fill!", pic_str_string_fill_ip);
pic_defun(pic, "substring", pic_str_string_copy);
} }