added scheme/base import and re-tabified

svn: r14029
This commit is contained in:
Robby Findler 2009-03-10 16:43:44 +00:00
parent 6fe0677aa7
commit b7c0a22430

View File

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