[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
create a symlink
|
From: |
Rene |
|
Subject: |
create a symlink |
|
Date: |
Wed, 18 Apr 2018 22:54:54 -0400 |
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 address@hidden gnu/packages/hurd.scm:251 98c7120>
--------------------------
- create a symlink,
Rene <=