Paste number 345736: guix environment guix # crashes on master

Paste number 345736: guix environment guix # crashes on master
Pasted by: Apteryx
When:5 years, 3 months ago
Share:Tweet this! | http://paste.lisp.org/+7ERS
Channel:None
Paste contents:
Raw Source | XML | Display As
Backtrace:
In guix/packages.scm:
1132: 19 [thunk]
1064: 18 [bag->derivation # # #]
In srfi/srfi-1.scm:
 573: 17 [map #<procedure 848f2d0 at guix/packages.scm:1066:30 (t-9e7228c7bc8-2612)> ...]
In guix/packages.scm:
 862: 16 [expand-input # # # ...]
 817: 15 [cache! #<weak-key-hash-table 3071120 2/113> # # ...]
1132: 14 [thunk]
1064: 13 [bag->derivation # # #]
In srfi/srfi-1.scm:
 573: 12 [map #<procedure 84bf7b0 at guix/packages.scm:1066:30 (t-9e7228c7bc8-2612)> ...]
In guix/packages.scm:
 862: 11 [expand-input # # # ...]
 817: 10 [cache! #<weak-key-hash-table 3071120 2/113> # # ...]
1132: 9 [thunk]
1064: 8 [bag->derivation # # #]
In srfi/srfi-1.scm:
 575: 7 [map #<procedure 853e930 at guix/packages.scm:1066:30 (t-9e7228c7bc8-2612)> ...]
In ice-9/boot-9.scm:
 160: 6 [catch srfi-34 #<procedure 91a0000 at guix/packages.scm:881:5 ()> ...]
In guix/packages.scm:
 886: 5 [#<procedure 91a0000 at guix/packages.scm:881:5 ()>]
In guix/store.scm:
1336: 4 [run-with-store # ...]
In guix/gexp.scm:
 604: 3 [#<procedure 85dac30 at guix/gexp.scm:604:2 (state)> #]
 626: 2 [#<procedure 8ccddc0 at guix/gexp.scm:604:2 (builder)> "/gnu/store/rzxs5lr5ay9n7s3657sf4y2hc4l9dnzk-bash-4.4.tar.xz-builder"]
 989: 1 [imported-modules ((guix build utils)) #:name ...]
In unknown file:
   ?: 0 [# # #<procedure 79d5e60 at guix/gexp.scm:991:29 (expr)> #]

ERROR: In procedure #<syntax-transformer mapm>:
ERROR: Wrong type to apply: #<syntax-transformer mapm>
maxim@apteryx ~/src/guix$ cat /gnu/store/rzxs5lr5ay9n7s3657sf4y2hc4l9dnzk-bash-4.4.tar.xz-builder
(begin (use-modules (ice-9 ftw) (srfi srfi-1) (guix build utils)) (define tar-supports-sort? (zero? (system* (string-append "/gnu/store/ap3iggxnk96k0bav3c45v7dn87zyvk2y-bootstrap-binaries-0" "/bin/tar") "cf" "/dev/null" "--files-from=/dev/null" "--sort=name"))) (define (apply-patch patch) (format (current-error-port) "applying '~a'...~%" patch) (zero? (system* (string-append "/gnu/store/ap3iggxnk96k0bav3c45v7dn87zyvk2y-bootstrap-binaries-0" "/bin/patch") "--force" "--no-backup-if-mismatch" "-p0" "--input" patch))) (define (first-file directory) (car (scandir directory (lambda (name) (not (member name (quote ("." "..")))))))) (fluid-set! %default-port-conversion-strategy (quote error)) (when #f (setenv "LOCPATH" (string-append #f "/lib/locale/" #f)) (setlocale LC_ALL "en_US.utf8")) (setenv "PATH" (string-append "/gnu/store/ap3iggxnk96k0bav3c45v7dn87zyvk2y-bootstrap-binaries-0" "/bin" ":" "/gnu/store/ap3iggxnk96k0bav3c45v7dn87zyvk2y-bootstrap-binaries-0" "/bin")) (and (if (file-is-directory? "/gnu/store/xwanyg9972rpznx89ja38v01c8483392-bash-4.4.tar.gz") (let* ((store (%store-directory)) (len (+ 1 (string-length store))) (base (string-drop "/gnu/store/xwanyg9972rpznx89ja38v01c8483392-bash-4.4.tar.gz" len)) (dash (string-index base #\-)) (directory (string-drop base (+ 1 dash)))) (mkdir directory) (copy-recursively "/gnu/store/xwanyg9972rpznx89ja38v01c8483392-bash-4.4.tar.gz" directory) #t) (zero? (system* (string-append "/gnu/store/ap3iggxnk96k0bav3c45v7dn87zyvk2y-bootstrap-binaries-0" "/bin/tar") "xvf" "/gnu/store/xwanyg9972rpznx89ja38v01c8483392-bash-4.4.tar.gz"))) (let ((directory (first-file "."))) (format (current-error-port) "source is under '~a'~%" directory) (chdir directory) (and (every apply-patch (quote ("/gnu/store/pv9xj6fhnk16fh97q7rmx393yxhhycd2-bash44-001" "/gnu/store/74x6ij0zpsxv5vn8k5iglvqwq1355xxy-bash44-002" "/gnu/store/pv8n14l7lx73gv0vmbb6axgpz43c2mrs-bash44-003" "/gnu/store/prvg18q83g88qzafgy9dngplhzq8vv6m-bash44-004" "/gnu/store/w5d6sfbyp8s11adkfkk1axi6q0syamq8-bash44-005" "/gnu/store/i9f34mnm3dfsbwg30q1351hizwy0fhqj-bash44-006" "/gnu/store/7p16ggjqks8xs2k8pi8mv7jk3b7vmlgm-bash44-007" "/gnu/store/6psnrc7rmcn5cgjbsyn7fj7q5v4dg7px-bash44-008" "/gnu/store/vb7v4kd1sm45z9bdm610h7zj6d91hwp5-bash44-009" "/gnu/store/4cwrkcj3r5b26z49a91xiq38r53ggr7j-bash44-010" "/gnu/store/2pkza4b8gm2vvjwkbmp1id35kpc1rwzz-bash44-011" "/gnu/store/hxhalipsxbl2qh7n0q688fisybxv7a3y-bash44-012"))) (begin (chdir "..") #t) (unless tar-supports-sort? (call-with-output-file ".file_list" (lambda (port) (for-each (lambda (name) (format port "~a~%" name)) (find-files directory #:directories? #t #:fail-on-error? #t))))) (zero? (apply system* (string-append "/gnu/store/ap3iggxnk96k0bav3c45v7dn87zyvk2y-bootstrap-binaries-0" "/bin/tar") "cvfa" ((@ (guile) getenv) "out") "--mtime=@0" "--owner=root:0" "--group=root:0" (if tar-supports-sort? (quasiquote ("--sort=name" (unquote directory))) (quote ("--no-recursion" "--files-from=.file_list")))))))))

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.