diff options
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/image.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index dd32e58c2d5..f02f6e0b8c2 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm | |||
| @@ -312,7 +312,9 @@ used in the image." | |||
| 312 | (cond | 312 | (cond |
| 313 | ((member 'esp flags) "0xEF") | 313 | ((member 'esp flags) "0xEF") |
| 314 | ((string-prefix? "ext" file-system) "0x83") | 314 | ((string-prefix? "ext" file-system) "0x83") |
| 315 | ((string=? file-system "vfat") "0x0E") | 315 | ((or (string=? file-system "vfat") |
| 316 | (string=? file-system "fat16")) "0x0E") | ||
| 317 | ((string=? file-system "fat32") "0x0C") | ||
| 316 | (else | 318 | (else |
| 317 | (raise (condition | 319 | (raise (condition |
| 318 | (&message | 320 | (&message |
| @@ -329,7 +331,9 @@ used in the image." | |||
| 329 | (cond | 331 | (cond |
| 330 | ((member 'esp flags) "U") | 332 | ((member 'esp flags) "U") |
| 331 | ((string-prefix? "ext" file-system) "L") | 333 | ((string-prefix? "ext" file-system) "L") |
| 332 | ((string=? file-system "vfat") "F") | 334 | ((or (string=? file-system "vfat") |
| 335 | (string=? file-system "fat16") | ||
| 336 | (string=? file-system "fat32")) "F") | ||
| 333 | (else | 337 | (else |
| 334 | (raise (condition | 338 | (raise (condition |
| 335 | (&message | 339 | (&message |