Commit 6fb28103de88096d9d64c28fbfd0c219398248d7

Thomas de Grivel 2020-04-18T14:54:30

fix hostname

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/core/host.lisp b/core/host.lisp
index acf2908..abf5e1d 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -71,7 +71,7 @@
 
 ;;  Host
 
-(defun hostname (&optional (host *host*))
+(defun hostname (&optional (host (current-host)))
   (resource-id (the host host)))
 
 ;;  Host shell