Fixed bug in parse-language.

svn: r14155

collects/redex/private/rg-test.ss

@@ -530,6 +530,14 @@
          (decisions #:nt (patterns fourth first first second first first first)
                     #:var (list (λ _ 'x) (λ _ 'y))))
         (term (λ (x) (hole y)))))
+(let ()
+  (define-language L
+    (a ((a ...) ...)))
+  (test (generate-term/decisions
+         L (cross a) 3 0 
+         (decisions #:nt (patterns second first)
+                    #:seq (list (λ _ 0) (λ _ 0) (λ _ 0) (λ _ 0))))
+        (term ((hole)))))
 
 ;; generation failures increase size and attempt
 (let ()

collects/redex/private/rg.ss

@@ -620,7 +620,7 @@ To do a better job of not generating programs with free variables,
   (struct-copy 
    compiled-lang lang
    [lang (map (parse-nt 'grammar) (compiled-lang-lang lang))]
-   [cclang (map (parse-nt 'top-level) (compiled-lang-cclang lang))]))
+   [cclang (map (parse-nt 'cross) (compiled-lang-cclang lang))]))
 
 ;; unparse-pattern: parsed-pattern -> pattern
 (define unparse-pattern