Infinite loop when using pull API on circular component reference (DataScript 0.9.0)

gistfile1.clj

(ns demo.main
  (:require [datascript :as ds]))

(def schema
  {:x/component {:db/valueType :db.type/ref ; Required to demonstrate bug.
                 :db/isComponent true ; Required to demonstrate bug.
                 }})

(def conn
  (ds/create-conn schema))

(ds/transact! conn
  [{:db/id 1
    :x/component {:db/id 1
                  :c/attribute "bar"}}])


(enable-console-print!)
(println "Point A")

; The circular reference from 1 to 1 causes an infinite loop when coupled with another bug
; when using the Push API on entity 1.
; Uncomment line below to induce freeze.
#_(prn (ds/pull @conn '[*] 1))

(println "Point B")