Fix in-hole enum bug and add test case

pkgs/redex-pkgs/redex-lib/redex/private/enum.rkt

@@ -215,7 +215,7 @@
      (define term-fn (refs-to-fn termpat-refs))
      (λ (nv)
         (define ctx (ctx-fn nv))
-        (define term (term-fn term))
+        (define term (term-fn nv))
         (plug-hole ctx term))]
     [(hide-hole p)
      (define p-fn (refs-to-fn p))

pkgs/redex-pkgs/redex-test/redex/tests/enum-test.rkt

@@ -157,6 +157,8 @@
 (try-it 100 Holes i2)
 (try-it 1 Holes hole)
 (try-it 100 Holes (in-hole hole number))
+(try-it 100 Holes (in-hole (cons hole boolean) (cons number string)))
+(try-it 100 Holes (in-hole (cons hole number_1) number_1))
 
 ;; Cross test
 (define-language CrossLang