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

A bunch of more typos like the ones in David's commit.

Browse Source 
original commit: c007c345f9e57e8cd17373a8caf51a00f7d303b2
This commit is contained in:
Eli Barzilay 2012-02-21 14:21:36 -05:00
parent fccd1795d1
commit 0ffcc96bec
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/macro-debugger/model/reductions-engine.rkt
View File

@ -573,7 +573,7 @@
[id (identifier? #'id) (list #'id)] [id (identifier? #'id) (list #'id)]
[() null] [() null]
[(x . y) (append (flatten-identifiers #'x) (flatten-identifiers #'y))] [(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) (if (syntax? stx)
(syntax->datum stx) (syntax->datum stx)
stx))])) stx))]))

2
collects/macro-debugger/syntax-browser/frame.rkt
View File

@ -71,7 +71,7 @@
(define -identifier=-choices (identifier=-choices)) (define -identifier=-choices (identifier=-choices))
(define -choice (define -choice
(new choice% (label "identifer=?") (parent -control-panel) (new choice% (label "identifier=?") (parent -control-panel)
(choices (map car -identifier=-choices)) (choices (map car -identifier=-choices))
(callback (callback
(lambda (c e) (lambda (c e)