diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-23 02:00:00 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2024-09-01 02:00:00 +0200 |
| commit | 7af17447480a6024871d0709b66bc5cc53255657 (patch) | |
| tree | d5548f03985e59cb9acf61a1e614333565fa59e8 | |
| parent | b58516ccd1ed9ccbf84e137af62fa8ec67fa85e1 (diff) | |
WIP use cut for stylistic reasons
| -rw-r--r-- | gnu/build/activation.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm index a57ca78a86..93719f0921 100644 --- a/gnu/build/activation.scm +++ b/gnu/build/activation.scm @@ -382,8 +382,7 @@ second element is the name it should appear at, such as: ;; unavailable, so check for its existence first. (when (file-exists? "/proc/sys/kernel/modprobe") (call-with-output-file "/proc/sys/kernel/modprobe" - (lambda (port) - (display modprobe port))))) + (cut display modprobe <>)))) (define (activate-firmware directory) "Tell the kernel to look for device firmware under DIRECTORY. This @@ -395,8 +394,7 @@ by itself, without having to resort to a \"user helper\"." (let ((firmware-path "/sys/module/firmware_class/parameters/path")) (when (file-exists? firmware-path) (call-with-output-file firmware-path - (lambda (port) - (display directory port)))))) + (cut display directory <>))))) (define (activate-ptrace-attach) "Allow users to PTRACE_ATTACH their own processes. @@ -409,8 +407,7 @@ improvement." (let ((file "/proc/sys/kernel/yama/ptrace_scope")) (when (file-exists? file) (call-with-output-file file - (lambda (port) - (display 0 port)))))) + (cut display 0 <>))))) (define %current-system |