diff options
Diffstat (limited to 'make-c-ext.tcl')
| -rw-r--r-- | make-c-ext.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/make-c-ext.tcl b/make-c-ext.tcl index fd1a056..00d4d1e 100644 --- a/make-c-ext.tcl +++ b/make-c-ext.tcl @@ -18,8 +18,8 @@ set f [open $source] while {[gets $f buf] >= 0} { # Remove comment lines regsub {^[ \t]*#.*$} $buf "" buf - # Escape quotes and backlashes - set buf [string map [list \\ \\\\ \" \\"] $buf] + # Escape quotes and backlashes and remove carriage returns + set buf [string map [list \\ \\\\ \" \\" \r ""] $buf] lappend sourcelines \"$buf\\n\" } close $f |