пишу модуль для guix home для управления стейтом. Чтобы можно было написать herd init state и все рабочие репы подтянулись на свои места, если их там не было до этого.

Попробуй кстати заменить stdout на другой файловый дескриптор просто.

with-output-to-port, например.  Или же просто заменить файловый дескриптор выходного потока через dup2 или может быть redirect-port на нужный тебе, а потом запустить процесс через system (предположу, так как system работает через fork/exec, то он получит дескрипторы от родителя "по наследству".)

И тогда дочерний процесс будет сразу писать туда, куда тебе надо.

Типа так?

   (with-output-to-port (current-output-port)
     (lambda () (system "ls")))

   (let ((port ((@@ (ice-9 popen) open-input-pipe) "ls && sleep 5s")))
     (waitpid WAIT_ANY)
     (display ((@@ (ice-9 rdelim) read-delimited) "" port))
     ((@@ (ice-9 popen) close-pipe) port))

я вообще не очень понимаю, куда девается вывод от system. и почему вот это работает, а system - нет.

Пробуй.

что пробовать?)

   (with-output-to-port (current-output-port)
     (lambda () (system "ls")))

Работает?

не-а

Через часа три смогу ещё посмотреть детально, может даже написать пример.

Спасибо. Я пока ковыряю варианты, если что-то более-менее вменяемое получится, то отпишусь

Тут кстати вывод не "теряется", насколько вижу.  Вот простой пример:

#!/usr/bin/guile \
-e main -s
!#

(define (main args)
  (system "ls"))

Запуск и вывод:

$ ./system-to-stdout.scm 
system-to-stdout.scm

Просто вывод идёт в stdout процесса, который был запущен system.

Вот этот пример пишет вывод команды "ls" в файл:

#!/usr/bin/guile \
-e main -s
!#

(define (main args)
  (let ((port (open-output-file "out.txt")))
    (dup2 (port->fdes port) 1)
    (system "ls")))

Тоже самое, но через primitive-fork:

#!/usr/bin/guile \
-e main -s
!#

(define (main args)
  (let ((port (open-output-file "out.txt")))
    (dup2 (port->fdes port) 1)
    (let ((pid (primitive-fork)))
      (cond
       ((zero? pid)
        (execl "/usr/bin/ls" "ls"))))))

#!/usr/bin/guile \
-e main -s
!#

(define (main args)
  (system "ls"))

$ ./system-to-stdout.scm 
system-to-stdout.scm

у меня код выполняется внутри шеферд сервиса. т.е. я дёргаю herd'ом какой-то экшн, а этот экшн выполняется в shepherd и вероятно мне через сокет в stdout herd'а прилетает текст.

всем здрасти

недавно начал учить  Racket, попробовал реализовать Алгоритм Евклида (нахождение НОД), как его можно улучшить?

(define (nod x y)
 (if (or ( = x 0)(= y 0))
     (max x y)
     (let
         ([mx (max x y)]
          [mn (min x y)])
       (nod  (remainder mx mn) mn))))