suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use define-runtime-path in errortrace-lib for the key -syntax-object module

Browse Source 
svn: r6184
This commit is contained in:
Matthew Flatt 2007-05-08 22:01:06 +00:00
parent 3cf3fe7ed9
commit a1f665385b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/errortrace/errortrace-lib.ss
View File

@ -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)