create a symlink

[Rene <pacoon@protonmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1335 bytes --]

Hello,

In 'gnu/build/install.scm', I try to create a symlink from '/gnu/store/..hurd-0.9' to /hurd during 'guix system init  '.

But Guix waits for a string, is it possible to use a package to do the symlink?

--------CODE---------------

(let ((hurd-1 (string-append target

                                     "/hurd")))

    (let try ()

      (catch 'system-error

             (lambda ()

               (symlink hurd hurd-1))

             (lambda args

               ;; If hurd-1 already exists, overwrite it.

               (if (= EEXIST (system-error-errno args))

                   (begin

                     (delete-file hurd-1)

                     (try))

                   (apply throw args))))))

-----------------------

-----------ERROR-------------

In guix/scripts/system.scm:

181: 4 [#<procedure b1fd9c0 at guix/scripts/system.scm:183:4 (state)> #]

In ice-9/eval.scm:

432: 3 [eval # #]

In ice-9/boot-9.scm:

157: 2 [catch system-error #<procedure afcd888 at ice-9/eval.scm:416:20 ()> ...]

157: 1 [catch system-error #<procedure afcd858 at guix/ui.scm:359:2 ()> ...]

In unknown file:

   ?: 0 [symlink # "/home/jin/subhurd/rfs/hurd"]

ERROR: In procedure symlink:

ERROR: Wrong type (expecting string): #<package hurd@0.9 gnu/packages/hurd.scm:251 98c7120>

--------------------------

Thank you

Rene

[-- Attachment #2: Type: text/html, Size: 14950 bytes --]