A bunch of more typos like the ones in David's commit.
original commit: c007c345f9e57e8cd17373a8caf51a00f7d303b2
This commit is contained in:
parent
fccd1795d1
commit
0ffcc96bec
|
@ -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))]))
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user