diff options
| -rw-r--r-- | gnu/packages/shells.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm index a7984703878..2bfa4e83aff 100644 --- a/gnu/packages/shells.scm +++ b/gnu/packages/shells.scm | |||
| @@ -684,7 +684,16 @@ use of experts and novices alike.") | |||
| 684 | #$(package-version scheme48) | 684 | #$(package-version scheme48) |
| 685 | "/rx"))) | 685 | "/rx"))) |
| 686 | (delete-file-recursively "rx") | 686 | (delete-file-recursively "rx") |
| 687 | (symlink rxpath "rx"))))))) | 687 | (symlink rxpath "rx")))) |
| 688 | (add-after 'replace-rx 'fix-includes | ||
| 689 | (lambda _ | ||
| 690 | (with-directory-excursion "c" | ||
| 691 | (substitute* "syscalls.c" | ||
| 692 | (("#include <stdlib.h>" all) | ||
| 693 | (string-append all "\n#include <time.h>"))) | ||
| 694 | (substitute* "tty.c" | ||
| 695 | (("#include <termios.h>" all) | ||
| 696 | (string-append all "\n#include <pty.h>"))))))))) | ||
| 688 | (inputs | 697 | (inputs |
| 689 | (list scheme48 scheme48-rx)) | 698 | (list scheme48 scheme48-rx)) |
| 690 | (native-inputs | 699 | (native-inputs |
