added scheme/base import and re-tabified
svn: r14029
This commit is contained in:
parent
6fe0677aa7
commit
b7c0a22430
|
@ -1,8 +1,8 @@
|
||||||
|
#lang scheme/base
|
||||||
(module stacktrace scheme/base
|
|
||||||
(require mzlib/unit
|
(require mzlib/unit
|
||||||
syntax/kerncase
|
syntax/kerncase
|
||||||
syntax/stx)
|
syntax/stx
|
||||||
|
(for-syntax scheme/base))
|
||||||
|
|
||||||
(provide stacktrace@ stacktrace^ stacktrace-imports^)
|
(provide stacktrace@ stacktrace^ stacktrace-imports^)
|
||||||
|
|
||||||
|
@ -153,11 +153,10 @@
|
||||||
[(#%top . var)
|
[(#%top . var)
|
||||||
stx]
|
stx]
|
||||||
[else
|
[else
|
||||||
(if trans?-expr
|
(error 'expr-iterator "unknown expression (phase ~s): ~s ~s"
|
||||||
|
trans?-expr
|
||||||
stx
|
stx
|
||||||
(error 'expr-iterator "unknown expression: ~s ~s"
|
(syntax->datum stx))])
|
||||||
stx
|
|
||||||
(syntax->datum stx)))])
|
|
||||||
stx
|
stx
|
||||||
insp
|
insp
|
||||||
#f)))
|
#f)))
|
||||||
|
@ -175,4 +174,4 @@
|
||||||
(loop #'rest (cons #'var so-far))])))
|
(loop #'rest (cons #'var so-far))])))
|
||||||
|
|
||||||
|
|
||||||
(define (annotate x) (top-level-expr-iterator x))))
|
(define (annotate x) (top-level-expr-iterator x)))
|
Loading…
Reference in New Issue
Block a user