reboot: Use reboot'.
* gash/commands/reboot.scm (reboot'): Rename from reboot. Update users.
This commit is contained in:
parent
8bcc6d3c82
commit
6e396759a3
|
@ -77,7 +77,7 @@
|
||||||
(define find-command (wrap-command "find" find))
|
(define find-command (wrap-command "find" find))
|
||||||
(define grep-command (wrap-command "grep" grep))
|
(define grep-command (wrap-command "grep" grep))
|
||||||
(define ls-command (wrap-command "ls" ls))
|
(define ls-command (wrap-command "ls" ls))
|
||||||
(define reboot-command (wrap-command "reboot" reboot))
|
(define reboot-command (wrap-command "reboot" reboot'))
|
||||||
(define rm-command (wrap-command "rm" rm))
|
(define rm-command (wrap-command "rm" rm))
|
||||||
(define sed-command (wrap-command "sed" sed))
|
(define sed-command (wrap-command "sed" sed))
|
||||||
(define tar-command (wrap-command "tar" tar))
|
(define tar-command (wrap-command "tar" tar))
|
||||||
|
|
|
@ -27,10 +27,10 @@
|
||||||
|
|
||||||
(define-module (gash commands reboot)
|
(define-module (gash commands reboot)
|
||||||
#:export (
|
#:export (
|
||||||
reboot
|
reboot'
|
||||||
))
|
))
|
||||||
|
|
||||||
(define (reboot name . args)
|
(define (reboot' name . args)
|
||||||
"Emit code for 'reboot'."
|
"Emit code for 'reboot'."
|
||||||
;; Normally Bournish is used in the initrd, where 'reboot' is provided
|
;; Normally Bournish is used in the initrd, where 'reboot' is provided
|
||||||
;; directly by (guile-user). In other cases, just bail out.
|
;; directly by (guile-user). In other cases, just bail out.
|
||||||
|
@ -41,4 +41,4 @@
|
||||||
"I don't know how to reboot, sorry about that!~%")
|
"I don't know how to reboot, sorry about that!~%")
|
||||||
1)))
|
1)))
|
||||||
|
|
||||||
(define main reboot)
|
(define main reboot')
|
||||||
|
|
Loading…
Reference in New Issue