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" (require "stacktrace.ss"
"errortrace-key.ss" "errortrace-key.ss"
(lib "list.ss") (lib "list.ss")
(lib "unit.ss")) (lib "unit.ss")
(lib "runtime-path.ss"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Test coverage run-time support ;; Test coverage run-time support
@ -105,9 +106,11 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stacktrace instrumenter ;; Stacktrace instrumenter
(define-runtime-path key-syntax
'(lib "errortrace-key-syntax.ss" "errortrace"))
(define dynamic-errortrace-key (define dynamic-errortrace-key
(dynamic-require '(lib "errortrace-key-syntax.ss" "errortrace") (dynamic-require key-syntax 'errortrace-key-syntax))
'errortrace-key-syntax))
;; with-mark : stx stx -> stx ;; with-mark : stx stx -> stx
(define (with-mark mark expr) (define (with-mark mark expr)