diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2018-08-20 23:14:31 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2018-08-20 23:14:31 +0300 |
commit | 3adba48f117f748dfb08a0dd4cdd42f214bae93f (patch) | |
tree | 75d756b4f7e4c5512e3d4f49f35541901b7eb685 /scripts/bootstrap | |
parent | 3e205088b3b3434ba17bf08b39f2a5fa1fc6a3b0 (diff) | |
download | gamma-3adba48f117f748dfb08a0dd4cdd42f214bae93f.tar.gz gamma-3adba48f117f748dfb08a0dd4cdd42f214bae93f.tar.bz2 |
Update gint
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 |