From f1eec03a2d49f9653448d1b7470a82db9b16e424 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 16 Jun 2010 03:26:40 -0400 Subject: [PATCH] Fix two places in code.rkt that could use #f as an anchor, resulting in ...##f urls. --- collects/meta/web/www/code.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/meta/web/www/code.rkt b/collects/meta/web/www/code.rkt index 962d805536..e3ddf1aef1 100644 --- a/collects/meta/web/www/code.rkt +++ b/collects/meta/web/www/code.rkt @@ -51,7 +51,7 @@ (let-values ([(p a) (xref-tag->path+anchor xref tag #:external-root-url doc-root)]) - (format "~a#~a" p a))) + (if a (format "~a#~a" p a) p))) 'importid)) 'id) pos @@ -75,7 +75,8 @@ #:external-root-url doc-root)]) (if p (list (let ([pos (sub1 (syntax-position mp-stx))]) - (list (cons 'modpath (format "~a#~a" p a)) + (list (cons 'modpath + (if a (format "~a#~a" p a) p)) pos (+ pos (syntax-span mp-stx)) priority)))