diff options
Diffstat (limited to 'gnu/machine.scm')
| -rw-r--r-- | gnu/machine.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gnu/machine.scm b/gnu/machine.scm index 0b79402b0a8..30ae97f6ecb 100644 --- a/gnu/machine.scm +++ b/gnu/machine.scm | |||
| @@ -34,7 +34,7 @@ | |||
| 34 | machine? | 34 | machine? |
| 35 | this-machine | 35 | this-machine |
| 36 | 36 | ||
| 37 | machine-system | 37 | machine-operating-system |
| 38 | machine-environment | 38 | machine-environment |
| 39 | machine-configuration | 39 | machine-configuration |
| 40 | machine-display-name | 40 | machine-display-name |
| @@ -85,14 +85,14 @@ | |||
| 85 | make-machine | 85 | make-machine |
| 86 | machine? | 86 | machine? |
| 87 | this-machine | 87 | this-machine |
| 88 | (system machine-system) ; <operating-system> | 88 | (operating-system machine-operating-system) ; <operating-system> |
| 89 | (environment machine-environment) ; symbol | 89 | (environment machine-environment) ; symbol |
| 90 | (configuration machine-configuration ; configuration object | 90 | (configuration machine-configuration ; configuration object |
| 91 | (default #f))) ; specific to environment | 91 | (default #f))) ; specific to environment |
| 92 | 92 | ||
| 93 | (define (machine-display-name machine) | 93 | (define (machine-display-name machine) |
| 94 | "Return the host-name identifying MACHINE." | 94 | "Return the host-name identifying MACHINE." |
| 95 | (operating-system-host-name (machine-system machine))) | 95 | (operating-system-host-name (machine-operating-system machine))) |
| 96 | 96 | ||
| 97 | (define (machine-remote-eval machine exp) | 97 | (define (machine-remote-eval machine exp) |
| 98 | "Evaluate EXP, a gexp, on MACHINE. Ensure that all the elements EXP refers to | 98 | "Evaluate EXP, a gexp, on MACHINE. Ensure that all the elements EXP refers to |