diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-08-05 20:14:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-08-05 20:14:04 (GMT) |
| commit | ed3e9c60bac115e7ad38b1169dacc8bf974e99d2 (patch) | |
| tree | 697bc1942f5c809c684cb91657e32a0c224ba30b /tools | |
| parent | d87884d51b4fcfc7d9a09febe9a351dad983d732 (diff) | |
| download | tcl-ed3e9c60bac115e7ad38b1169dacc8bf974e99d2.zip tcl-ed3e9c60bac115e7ad38b1169dacc8bf974e99d2.tar.gz tcl-ed3e9c60bac115e7ad38b1169dacc8bf974e99d2.tar.bz2 | |
Combine the two bits of scripted code inside TclOO's definition into one.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/makeHeader.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/makeHeader.tcl b/tools/makeHeader.tcl index 8af35fc..5197da6 100644 --- a/tools/makeHeader.tcl +++ b/tools/makeHeader.tcl @@ -21,7 +21,7 @@ namespace eval makeHeader { # All Tcl metacharacters and key C backslash sequences set MAP { \" \\\\\" \\ \\\\\\\\ $ \\$ [ \\[ ] \\] ' \\\\' ? \\\\? - \a \\\\a \b \\\\b \f \\\\f \n \\\\n \r \\\\r \t \\\\t \v \\\\v + \a \\\\a \b \\\\b \f \\\\f \n \\\\n \r \\\\r \t { } \v \\\\v } set XFORM {[format \\\\\\\\u%04x {*}[scan & %c]]} |