Fixes generation of any' within in-hole' context position

collects/redex/private/rg.rkt

@@ -343,7 +343,7 @@
                         [`any
                          (λ (r s a e f)
                            (let*-values ([(lang nt) ((next-any-decision) langc sexpc)]
-                                         [(term) (gen-nt lang nt #f r s a (list the-hole))])
+                                         [(term) (gen-nt lang nt #f r s a the-not-hole)])
                              (values term e)))]
                         [(or (? symbol? (? nt? p)) `(cross ,(? symbol? p)))
                          (let ([cross? (not (symbol? pat))])

collects/redex/tests/rg-test.rkt

@@ -518,7 +518,13 @@
          empty any 5 0 (decisions #:nt (patterns first)
                                   #:any (λ (langc sexpc) (values sexpc 'sexp))
                                   #:var (list (λ _ 'x))))
-        'x))
+        'x)
+  (test 
+   (generate-term/decisions 
+    empty (in-hole (any hole) 7) 5 0
+    (decisions #:any (list (λ (_ sexp) (values sexp 'sexp)))
+               #:nt (patterns fourth)))
+   (term (hole 7))))
 
 ;; `hide-hole' pattern
 (let ()