From 0ffcc96bec7b984806e34195db7b2206e30d2f6a Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 21 Feb 2012 14:21:36 -0500 Subject: [PATCH] A bunch of more typos like the ones in David's commit. original commit: c007c345f9e57e8cd17373a8caf51a00f7d303b2 --- collects/macro-debugger/model/reductions-engine.rkt | 2 +- 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 index b80eb25..7f43d2b 100644 --- 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 index 8b5b016..ec935e0 100644 --- 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)