diff options
Diffstat (limited to 'scripts/bootstrap')
-rwxr-xr-x | scripts/bootstrap | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/bootstrap b/scripts/bootstrap index 264d1a7..b1b990f 100755 --- a/scripts/bootstrap +++ b/scripts/bootstrap | |||
@@ -252,13 +252,13 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cons \"$0\" (cdr (command-line))))" | |||
252 | (define (write-autogenerated-header ocomm ccomm) | 252 | (define (write-autogenerated-header ocomm ccomm) |
253 | (for-each | 253 | (for-each |
254 | (lambda (line) | 254 | (lambda (line) |
255 | (display ocomm) | 255 | (display ocomm) |
256 | (display line) | 256 | (display line) |
257 | (if ccomm | 257 | (if ccomm |
258 | (displat ccomm)) | 258 | (display ccomm)) |
259 | (newline)) | 259 | (newline)) |
260 | autogenerated-file-header)) | 260 | autogenerated-file-header)) |
261 | 261 | ||
262 | (define (write-string-list arg . rest) | 262 | (define (write-string-list arg . rest) |
263 | (let ((indent (make-string (if (null? rest) 0 (car rest)) #\space))) | 263 | (let ((indent (make-string (if (null? rest) 0 (car rest)) #\space))) |
264 | (for-each | 264 | (for-each |