How do i get (pprint) output looking like (prn) output? I want to preserve the reader macro #db/id[...]

print.clj

;;(pprint (take 1 (mapcat identity schemas)))
({:db.install/_attribute :db.part/db,
  :db/unique :db.unique/value,
  :db/doc "user that this password will work for",
  :db/id {:part :db.part/db, :idx -1000000},
  :db/ident :auth/user,
  :db/valueType :db.type/ref,
  :db/cardinality :db.cardinality/one})

;;(prn (take 1 (mapcat identity schemas)))
({:db.install/_attribute :db.part/db, 
  :db/unique :db.unique/value, 
  :db/doc "user that this password will work for", 
  :db/id #db/id[:db.part/db -1000000], 
  :db/ident :auth/user, 
  :db/valueType :db.type/ref, 
  :db/cardinality :db.cardinality/one})