commit 0ffcc96bec7b984806e34195db7b2206e30d2f6a parent fccd1795d1f7dadd449c177eff2d527f82e0f99b Author: Eli Barzilay <eli@barzilay.org> Date: Tue, 21 Feb 2012 14:21:36 -0500 A bunch of more typos like the ones in David's commit. original commit: c007c345f9e57e8cd17373a8caf51a00f7d303b2 Diffstat:
| M | collects/macro-debugger/model/reductions-engine.rkt | | | 2 | +- |
| M | collects/macro-debugger/syntax-browser/frame.rkt | | | 2 | +- |
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/collects/macro-debugger/model/reductions-engine.rkt b/collects/macro-debugger/model/reductions-engine.rkt @@ -573,7 +573,7 @@ [id (identifier? #'id) (list #'id)] [() null] [(x . y) (append (flatten-identifiers #'x) (flatten-identifiers #'y))] - [else (error 'flatten-identifers "neither syntax list nor identifier: ~s" + [else (error 'flatten-identifiers "neither syntax list nor identifier: ~s" (if (syntax? stx) (syntax->datum stx) stx))])) diff --git a/collects/macro-debugger/syntax-browser/frame.rkt b/collects/macro-debugger/syntax-browser/frame.rkt @@ -71,7 +71,7 @@ (define -identifier=-choices (identifier=-choices)) (define -choice - (new choice% (label "identifer=?") (parent -control-panel) + (new choice% (label "identifier=?") (parent -control-panel) (choices (map car -identifier=-choices)) (callback (lambda (c e)