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

fix bug in relative `submod' path handling

Browse Source
This commit is contained in:
Matthew Flatt 2012-09-06 12:29:35 -06:00
parent fc0d605d18
commit 8728a3a1e9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/require-transform.rkt
View File

@ -215,7 +215,7 @@
;; Yes, a submodule:
(let ([rmp-mod (collapse-mpi rmp)])
(if (and (pair? rmp-mod)
(eq? (car rmp-mod 'submod)))
(eq? (car rmp-mod) 'submod))
(d->s (append rmp-mod (cadr mp)))
(d->s `(submod ,rmp-mod . ,(cddr mp)))))
mp/stx)]
@ -255,7 +255,7 @@
(syntax->datum new-sub/stx)
new-sub/stx))
(if (and (pair? new-sub)
(eq? (car new-sub 'submod)))
(eq? (car new-sub) 'submod))
(d->s (append new-sub (cddr sub)))
(d->s `(submod ,new-sub/stx . ,(cddr sub))))])]
[else mp/stx])]))