Fixed a generator bug when :inlined was set to false.

Author: green-coder

src/minimallist/generator.cljc

@@ -319,7 +319,8 @@
 
           :let (sequence-generator (merge context (:bindings model)) (:body model) budget)
           :ref (sequence-generator context (get context (:key model)) budget)))
-    (gen/fmap vector (generator context model budget))))
+    (gen/fmap vector
+              (generator context (dissoc model :inlined) budget))))
 
 (defn- generator
   "Returns a generator of a data structure."

test/minimallist/generator_test.cljc

@@ -416,6 +416,14 @@
     (is (every? (partial valid? model)
                 (tcg/sample (gen model)))))
 
+  (let [model (h/not-inlined (h/cat fn-int?))]
+    (is (every? (partial valid? model)
+                (tcg/sample (gen model)))))
+
+  (let [model (h/not-inlined (h/repeat 1 2 fn-int?))]
+    (is (every? (partial valid? model)
+                (tcg/sample (gen model)))))
+
   (let [model (h/let ['int? fn-int?
                       'string? fn-string?
                       'int-string? (h/cat (h/ref 'int?) (h/ref 'string?))]