diff --git a/gash/bournish-commands.scm b/gash/bournish-commands.scm index 7ceb818..6759fe3 100644 --- a/gash/bournish-commands.scm +++ b/gash/bournish-commands.scm @@ -77,7 +77,7 @@ (define find-command (wrap-command "find" find)) (define grep-command (wrap-command "grep" grep)) (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 sed-command (wrap-command "sed" sed)) (define tar-command (wrap-command "tar" tar)) diff --git a/gash/commands/reboot.scm b/gash/commands/reboot.scm index 490fe28..b0783ad 100644 --- a/gash/commands/reboot.scm +++ b/gash/commands/reboot.scm @@ -27,10 +27,10 @@ (define-module (gash commands reboot) #:export ( - reboot + reboot' )) -(define (reboot name . args) +(define (reboot' name . args) "Emit code for 'reboot'." ;; Normally Bournish is used in the initrd, where 'reboot' is provided ;; directly by (guile-user). In other cases, just bail out. @@ -41,4 +41,4 @@ "I don't know how to reboot, sorry about that!~%") 1))) -(define main reboot) +(define main reboot')