From 13c8476af47ce279806cdd095e5c07cc2c3739f0 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 15 Jan 2026 16:22:01 -0500 Subject: [PATCH] Handle resolved modules represented as symbols. Discovered while working on racket/typed-racket#1483. --- macro-debugger/tests/macro-debugger/tests/collects.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/macro-debugger/tests/macro-debugger/tests/collects.rkt b/macro-debugger/tests/macro-debugger/tests/collects.rkt index c8ff77c..1aacc66 100644 --- a/macro-debugger/tests/macro-debugger/tests/collects.rkt +++ b/macro-debugger/tests/macro-debugger/tests/collects.rkt @@ -58,10 +58,12 @@ (define (rel+mod->mod rel mod) (let* ([rel (resolved-module-path-name rel)] [rel (if (pair? rel) (car rel) rel)]) - (if (pair? mod) - #f ;; give up on submodules for now; FIXME - (let-values ([(base file dir?) (split-path rel)]) - (path->mod (simplify-path (build-path base mod))))))) + (cond + [(pair? mod) #f] ;; give up on submodules for now; FIXME + [(not (path? rel)) #f] ;; give up on non-path modules (e.g., lazy-require proxies) + [else + (let-values ([(base file dir?) (split-path rel)]) + (path->mod (simplify-path (build-path base mod))))]))) (define (path->mod path) (cond [(for/or ([c (current-library-collection-paths)]) (path->mod* path c))