* gnu/build/linux-modules.scm (current-kernel-directory): New procedure. (current-alias-file): Use it.