From a860a2387b1b645d24cf0f690a4fa41c660f73f4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 8 Jul 2013 12:22:10 -0600 Subject: [PATCH] misc changes to avoid absolute paths in bytecode files In many cases, `path->collects-relative' is used instead of `path->main-collects-relative' to generalize existing support for collection-relative paths. original commit: f87981f96057c26cb311e786a91229bf4a874e5b --- pkgs/gui-pkgs/gui-lib/rackunit/private/gui/drracket-ui.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/rackunit/private/gui/drracket-ui.rkt b/pkgs/gui-pkgs/gui-lib/rackunit/private/gui/drracket-ui.rkt index 20196e7..35c7efc 100644 --- a/pkgs/gui-pkgs/gui-lib/rackunit/private/gui/drracket-ui.rkt +++ b/pkgs/gui-pkgs/gui-lib/rackunit/private/gui/drracket-ui.rkt @@ -1,6 +1,5 @@ #lang racket/base -(require mzlib/etc - "drracket-link.rkt") +(require "drracket-link.rkt") ;; Procedures which *may* be overridden by DrRacket to do useful things. ;; Or they may not be. @@ -49,7 +48,7 @@ (not (regexp-match? (regexp-quote (path->string - (this-expression-source-directory))) + (collection-path "rackunit" "private" "gui"))) (path->string src))))))) srclocs)))