remove dicitonary-for-each
This commit is contained in:
		
							parent
							
								
									8c174cd505
								
							
						
					
					
						commit
						dd80aff03a
					
				
							
								
								
									
										18
									
								
								dict.c
								
								
								
								
							
							
						
						
									
										18
									
								
								dict.c
								
								
								
								
							| 
						 | 
				
			
			@ -137,23 +137,6 @@ pic_dict_dict_size(pic_state *pic)
 | 
			
		|||
  return pic_int_value(pic_dict_size(pic, dict));
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static pic_value
 | 
			
		||||
pic_dict_dict_for_each(pic_state *pic)
 | 
			
		||||
{
 | 
			
		||||
  struct pic_proc *proc;
 | 
			
		||||
  struct pic_dict *dict;
 | 
			
		||||
  xh_iter it;
 | 
			
		||||
 | 
			
		||||
  pic_get_args(pic, "ld", &proc, &dict);
 | 
			
		||||
 | 
			
		||||
  xh_begin(&it, &dict->hash);
 | 
			
		||||
  while (xh_next(&it)) {
 | 
			
		||||
    pic_apply2(pic, proc, pic_sym_value(xh_key(it.e, pic_sym)), xh_val(it.e, pic_value));
 | 
			
		||||
  }
 | 
			
		||||
 | 
			
		||||
  return pic_none_value();
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void
 | 
			
		||||
pic_init_dict(pic_state *pic)
 | 
			
		||||
{
 | 
			
		||||
| 
						 | 
				
			
			@ -163,5 +146,4 @@ pic_init_dict(pic_state *pic)
 | 
			
		|||
  pic_defun(pic, "dictionary-set!", pic_dict_dict_set);
 | 
			
		||||
  pic_defun(pic, "dictionary-delete", pic_dict_dict_del);
 | 
			
		||||
  pic_defun(pic, "dictionary-size", pic_dict_dict_size);
 | 
			
		||||
  pic_defun(pic, "dictionary-for-each", pic_dict_dict_for_each);
 | 
			
		||||
}
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue