From 8728a3a1e9df842aa4a0184a380caeae4e71fae3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 6 Sep 2012 12:29:35 -0600 Subject: [PATCH] fix bug in relative `submod' path handling --- collects/racket/require-transform.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/racket/require-transform.rkt b/collects/racket/require-transform.rkt index 79eaddc19b..62657b7b14 100644 --- a/collects/racket/require-transform.rkt +++ b/collects/racket/require-transform.rkt @@ -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])]))