- let alias_only =
- alias_only || List.mem baseuri (get_transitively_included (D.get status)) in
- let status =
- if not alias_only then
- let s = D.get status in
- D.set status
- (s#set_dump {s#dump with dependencies = fname::s#dump.dependencies})
- else
- status in
- let status = require2 ~baseuri ~alias_only status in
- let s = D.get status in
- D.set status
- (s#set_dump
- {s#dump with
- objs = record_include (baseuri,fname)::s#dump.objs })
+ if not alias_only && List.mem baseuri (get_transitively_included (D.get status)) then status
+ else
+ (let status =
+ if not alias_only then
+ let s = D.get status in
+ D.set status
+ (s#set_dump {s#dump with dependencies = fname::s#dump.dependencies})
+ else
+ status in
+ let status = require2 ~baseuri ~alias_only status in
+ let s = D.get status in
+ D.set status
+ (s#set_dump
+ {s#dump with
+ objs = record_include (baseuri,fname)::s#dump.objs }))