Project

General

Profile

Revision 86ae18b7 src/modules.ml

View differences:

src/modules.ml
113 113 
    | _       -> assert false
114 114 
  with Not_found -> Hashtbl.add consts_table name value
115 115 

  		




  116
  
  
    
let name_dependency (local, dep) =


  		




  117
  
  
    
  ((if local then !Options.dest_dir else Version.include_path) ^ "/") ^ dep


  		




  
  116
  
    
(*let name_dependency (local, dep) =


  		




  
  117
  
    
      ((if local then !Options.dest_dir else Version.include_path) ^ "/") ^ dep


  		




  
  118
  
    
      *)


  		




  118
  119
  
    

  		




  
  120
  
    
let name_dependency (local, dep) =


  		




  
  121
  
    
  ((if local then !Options.dest_dir else !Options.include_dir) ^ "/") ^ dep


  		




  
  122
  
    
  


  		




  119
  123
  
    
let import_dependency_aux loc (local, dep) =


  		




  120
  124
  
    
  let basename = name_dependency (local, dep) in


  		




  121
  125
  
    
  let extension = ".lusic" in 


  		












Also available in:  Unified diff