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

Switch to racket/base, and other racketizations.

Browse Source
This commit is contained in:
Eli Barzilay 2010-10-05 08:28:17 -04:00
parent bbe0ef860a
commit ad3ee86863
7 changed files with 44 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/errortrace/errortrace-lib.rkt
View File

@ -1,15 +1,15 @@
#lang scheme/base #lang racket/base
;; Poor man's stack-trace-on-exceptions/profiler. ;; Poor man's stack-trace-on-exceptions/profiler.
;; See manual for information. ;; See manual for information.
(require "stacktrace.ss" (require "stacktrace.rkt"
"errortrace-key.ss" "errortrace-key.rkt"
scheme/contract racket/contract
scheme/unit racket/unit
scheme/runtime-path racket/runtime-path
(for-template scheme/base) (for-template racket/base)
(for-syntax scheme/base)) (for-syntax racket/base))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Test coverage run-time support ;; Test coverage run-time support
@ -195,7 +195,7 @@
;; Stacktrace instrumenter ;; Stacktrace instrumenter
(define-runtime-path key-syntax (define-runtime-path key-syntax
'(lib "errortrace-key-syntax.ss" "errortrace")) '(lib "errortrace-key-syntax.rkt" "errortrace"))
(define dynamic-errortrace-key (define dynamic-errortrace-key
(dynamic-require key-syntax 'errortrace-key-syntax)) (dynamic-require key-syntax 'errortrace-key-syntax))
@ -436,7 +436,7 @@
(define (make-errortrace-compile-handler) (define (make-errortrace-compile-handler)
(let ([orig (current-compile)] (let ([orig (current-compile)]
[reg (namespace-module-registry (current-namespace))]) [reg (namespace-module-registry (current-namespace))])
(namespace-attach-module (namespace-anchor->namespace orig-namespace) 'scheme/base) (namespace-attach-module (namespace-anchor->namespace orig-namespace) 'racket/base)
(namespace-attach-module (namespace-anchor->namespace orig-namespace) 'errortrace/errortrace-key) (namespace-attach-module (namespace-anchor->namespace orig-namespace) 'errortrace/errortrace-key)
(lambda (e immediate-eval?) (lambda (e immediate-eval?)
(orig (orig

44
collects/errortrace/errortrace.rkt
View File

@ -1,32 +1,32 @@
#lang racket/base
;; Poor man's stack-trace-on-exceptions/profiler. ;; Poor man's stack-trace-on-exceptions/profiler.
;; See manual for information. ;; See manual for information.
(module errortrace mzscheme (require "errortrace-lib.rkt")
(require "errortrace-lib.ss")
(provide print-error-trace (provide print-error-trace
error-context-display-depth error-context-display-depth
instrumenting-enabled instrumenting-enabled
profiling-enabled profiling-enabled
profiling-record-enabled profiling-record-enabled
profile-paths-enabled profile-paths-enabled
get-profile-results get-profile-results
output-profile-results output-profile-results
clear-profile-results clear-profile-results
execute-counts-enabled execute-counts-enabled
get-execute-counts get-execute-counts
annotate-executed-file annotate-executed-file
coverage-counts-enabled coverage-counts-enabled
get-coverage get-coverage
test-coverage-info test-coverage-info
annotate-covered-file) annotate-covered-file)
(current-compile errortrace-compile-handler) (current-compile errortrace-compile-handler)
(error-display-handler errortrace-error-display-handler) (error-display-handler errortrace-error-display-handler)
(use-compiled-file-paths (cons (build-path "compiled" "errortrace") (use-compiled-file-paths (cons (build-path "compiled" "errortrace")
(use-compiled-file-paths)))) (use-compiled-file-paths)))

6
collects/errortrace/lang/body.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang racket/base
(require (for-syntax scheme/base (require (for-syntax racket/base
syntax/strip-context syntax/strip-context
"../errortrace-lib.ss")) "../errortrace-lib.rkt"))
(provide (rename-out [module-begin #%module-begin])) (provide (rename-out [module-begin #%module-begin]))

2
collects/errortrace/lang/reader.rkt
View File

@ -1,4 +1,4 @@
(module reader scheme/base (module reader racket/base
(require syntax/module-reader) (require syntax/module-reader)
(provide (rename-out [et-read read] (provide (rename-out [et-read read]

7
collects/errortrace/main.rkt
View File

@ -1,4 +1,3 @@
#lang racket/base
(module main scheme/base (require "errortrace.rkt")
(require "errortrace.ss") (provide (all-from-out "errortrace.rkt"))
(provide (all-from-out "errortrace.ss")))

8
collects/errortrace/stacktrace.rkt
View File

@ -1,9 +1,9 @@
#lang scheme/base #lang racket/base
(require scheme/unit (require racket/unit
syntax/kerncase syntax/kerncase
syntax/stx syntax/stx
(for-template scheme/base) (for-template racket/base)
(for-syntax scheme/base)) ; for matching (for-syntax racket/base)) ; for matching
(provide stacktrace@ stacktrace^ stacktrace-imports^) (provide stacktrace@ stacktrace^ stacktrace-imports^)
(define-signature stacktrace-imports^ (define-signature stacktrace-imports^

6
collects/errortrace/zo-compile.rkt
View File

@ -1,6 +1,5 @@
(module zo-compile mzscheme (module zo-compile mzscheme
(require "errortrace-lib.ss") (require "errortrace-lib.rkt")
(provide zo-compile) (provide zo-compile)
@ -10,6 +9,3 @@
(if (null? (use-compiled-file-paths)) (if (null? (use-compiled-file-paths))
(orig stx immediate-eval?) (orig stx immediate-eval?)
(orig (errortrace-annotate stx) immediate-eval?)))))) (orig (errortrace-annotate stx) immediate-eval?))))))