From a1f665385bcbc3a5bd5f7c40d7b529ac2d0f3404 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 8 May 2007 22:01:06 +0000 Subject: [PATCH] use define-runtime-path in errortrace-lib for the key -syntax-object module svn: r6184 --- collects/errortrace/errortrace-lib.ss | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/errortrace/errortrace-lib.ss b/collects/errortrace/errortrace-lib.ss index abb73d02c2..a7a2bf5f73 100644 --- a/collects/errortrace/errortrace-lib.ss +++ b/collects/errortrace/errortrace-lib.ss @@ -6,7 +6,8 @@ (require "stacktrace.ss" "errortrace-key.ss" (lib "list.ss") - (lib "unit.ss")) + (lib "unit.ss") + (lib "runtime-path.ss")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Test coverage run-time support @@ -105,9 +106,11 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Stacktrace instrumenter + (define-runtime-path key-syntax + '(lib "errortrace-key-syntax.ss" "errortrace")) + (define dynamic-errortrace-key - (dynamic-require '(lib "errortrace-key-syntax.ss" "errortrace") - 'errortrace-key-syntax)) + (dynamic-require key-syntax 'errortrace-key-syntax)) ;; with-mark : stx stx -> stx (define (with-mark mark expr)