Remove {anonymous,external}_scope from Super_context

These were re-exported to avoid access libs directly, but there's already an
accessor to do that, so these functions weren't used consistently anyway.
This commit is contained in:
Rudi Grinberg 2018-02-10 00:15:26 +08:00
parent dad2458879
commit fd6e8ad91f
2 changed files with 1 additions and 6 deletions

View File

@ -228,9 +228,6 @@ module Libs = struct
open Build.O
open Lib_db
let anonymous_scope t = Lib_db.anonymous_scope t.libs
let external_scope t = Lib_db.external_scope t.libs
let vrequires t ~dir ~item =
let fn = Path.relative dir (item ^ ".requires.sexp") in
Build.Vspec.T (fn, t.libs_vfile)
@ -849,7 +846,7 @@ module PP = struct
let (key, scope) =
match String.rsplit2 key ~on:'@' with
| None ->
(key, Libs.external_scope sctx)
(key, Lib_db.external_scope sctx.libs)
| Some (key, scope) ->
(key, Lib_db.find_scope_by_name_exn sctx.libs ~name:scope) in
let names =

View File

@ -100,8 +100,6 @@ val resolve_program
val unique_library_name : t -> Lib.t -> string
module Libs : sig
val anonymous_scope : t -> Lib_db.Scope.t
val external_scope : t -> Lib_db.Scope.t
val load_requires : t -> dir:Path.t -> item:string -> (unit, Lib.t list) Build.t
val load_runtime_deps : t -> dir:Path.t -> item:string -> (unit, Lib.t list) Build.t