suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix a bug in define-union-language

Browse Source 
(this bug was somehow already covered by the existing test suites
 and also make pretty much every define-union-language break)
This commit is contained in:
Robby Findler 2012-02-27 09:51:01 -06:00
parent bd08e09b12
commit c5193f7da7
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/redex/private/reduction-semantics.rkt
View File

@ -2676,12 +2676,14 @@
(define (union-language old-langs/prefixes) (define (union-language old-langs/prefixes)
(define new-nt-map (define new-nt-map
(for/list ([old-pr (in-list old-langs/prefixes)]) (apply
(define prefix (list-ref old-pr 0)) append
(define nt-map (compiled-lang-nt-map (list-ref old-pr 1))) (for/list ([old-pr (in-list old-langs/prefixes)])
(for/list ([lst (in-list nt-map)]) (define prefix (list-ref old-pr 0))
(for/list ([sym (in-list lst)]) (define nt-map (compiled-lang-nt-map (list-ref old-pr 1)))
(string->symbol (string-append prefix (symbol->string sym))))))) (for/list ([lst (in-list nt-map)])
(for/list ([sym (in-list lst)])
(string->symbol (string-append prefix (symbol->string sym))))))))
(define new-nts (define new-nts
(apply (apply