fix uki
This commit is contained in:
parent
7e15a35953
commit
e64a0281a3
1 changed files with 2 additions and 4 deletions
|
@ -44,14 +44,12 @@
|
||||||
(ice-9 popen) (ice-9 textual-ports))
|
(ice-9 popen) (ice-9 textual-ports))
|
||||||
|
|
||||||
(define (out name) (string-append vendir "/" name))
|
(define (out name) (string-append vendir "/" name))
|
||||||
(define fulldisk
|
(define disk
|
||||||
(call-with-port
|
(call-with-port
|
||||||
(open-pipe* OPEN_READ findmnt "-fnro" "SOURCE" "-T" target)
|
(open-pipe* OPEN_READ findmnt "-fnro" "SOURCE" "-T" target)
|
||||||
(lambda (port) (get-line port)))) ; only 1 line: the device
|
(lambda (port) (get-line port)))) ; only 1 line: the device
|
||||||
(define disk
|
|
||||||
(substring fulldisk 0 (- (string-length fulldisk) 1)))
|
|
||||||
(define part
|
(define part
|
||||||
(substring fulldisk (- (string-length fulldisk) 1)))
|
(substring disk (- (string-length disk) 1)))
|
||||||
|
|
||||||
;; delete all boot entries and files we control
|
;; delete all boot entries and files we control
|
||||||
(when (file-exists? schema)
|
(when (file-exists? schema)
|
||||||
|
|
Loading…
Reference in a new issue