Project

General

Profile

Revision 5c1184ad src/env.ml

View differences:

src/env.ml
36 36 
let exists_value env ident =
37 37 
  IMap.mem ident env
38 38 

  		




  
  39
  
    
let iter env f = IMap.iter f env


  		




  
  40
  
    
 


  		




  39
  41
  
    
let overwrite x y =


  		




  40
  42
  
    
  IMap.merge (


  		




  41
  43
  
    
    fun k _old _new -> match _new with


  		












Also available in:  Unified diff