Guix profile fails on Overdrive 1000

…

In ice-9/ftw.scm:

482:39 4 (loop _ _ #(64768 139272 16877 51 1000 1000 0 4096 1550677456 0 1550677457 4096 8 directory 493 818358318 0 1550677457) _ _)

In ice-9/eval.scm:

293:34 3 (_ #(#(#(#(#(#<directory (guile-user) 717140> "." ("perf" "stress" "online")) "./tests/clar_libgit2_timer.c" #(64768 132360 33188 1 1000 1000 0 …) …) …) …) …))

191:35 2 (_ #(#(#<directory (guile-user) 717140> #<variable 8e4eb0 value: #<procedure parse (a)>>) "./tests/clar_libgit2_timer.c"))

In ice-9/rdelim.scm:

160:18 1 (read-string _)

In unknown file:

0 (read-char "./tests/clar_libgit2_timer.c")

ERROR: In procedure read-char:

In procedure read-char: Wrong type argument in position 1 (expecting open input port): "./tests/clar_libgit2_timer.c"

(define (strip-comments port)

(let loop ((char (get-char port))

(balance 0)

(chars '()))

(cond

;; done!

((eof-object? char)

(list->string (reverse chars)))

;; line comment

((and (equal? char #\/)

(equal? #\/ (peek-char port)))

(begin (read-line port)

(loop (get-char port) balance chars)))

;; begin of block comment

((and (equal? char #\/)

(equal? #\* (peek-char port)))

(begin (read-char port)

(loop (get-char port) (1+ balance) chars)))

;; end of block comment

((and (positive? balance)

(equal? char #\*)

(equal? #\/ (peek-char port)))

(begin (read-char port)

(loop (get-char port) (1- balance) chars)))

;; inside block comment

((positive? balance)

(loop (get-char port) balance chars))

;; just a plain ol’ character

(else (loop (get-char port) balance (cons char chars))))))

;; Strip all comments from the file “fname” and show the result.

(display (call-with-input-file fname strip-comments))