bug#19279: guix system init fails

[Tomas Cech]

package: guix
version: 0.9

Calling `guix system init' fails with this backtrace.

...
copying '/gnu/store/smby7q3as9irx0fdw3yf4794msarindx-module-import-compiled'...
copying '/gnu/store/yprz7zcidc350zzysr7cxgpdqdl1a5q0-modprobe'...
copying '/gnu/store/q0595rmnw2yzli9pc82hcv915najw3vz-activate'...
copying '/gnu/store/l8sx339y484bnjy611m1hcf65blrrdnz-boot'...
copying '/gnu/store/p74lg3crjni84wvp7prx9hw678d5b4ns-parameters'...
copying '/gnu/store/zzm49l18jd06h8z2p4dy46mc7p4f638c-locale'...
copying '/gnu/store/981acfa6487sbkbjy5x0gnsfp97vh7sc-system'...
Backtrace:
In ice-9/boot-9.scm:
 157: 14 [catch #t #<catch-closure 180b520> ...]
In unknown file:
   ?: 13 [apply-smob/1 #<catch-closure 180b520>]
In ice-9/boot-9.scm:
  63: 12 [call-with-prompt prompt0 ...]
In ice-9/eval.scm:
 432: 11 [eval # #]
In ice-9/boot-9.scm:
2320: 10 [save-module-excursion #<procedure 183cc80 at ice-9/boot-9.scm:3961:3 
()>]
3966: 9 [#<procedure 183cc80 at ice-9/boot-9.scm:3961:3 ()>]
1645: 8 [%start-stack load-stack ...]
1650: 7 [#<procedure 183b000 ()>]
In unknown file:
   ?: 6 [primitive-load "/usr/bin/guix"]
In guix/ui.scm:
 781: 5 [run-guix-command system "init" "-c" "3" "/root/config.scm" "/guix/"]
In ice-9/boot-9.scm:
 157: 4 [catch srfi-34 #<procedure 272eb00 at guix/ui.scm:218:2 ()> ...]
 157: 3 [catch system-error ...]
In guix/monads.scm:
 498: 2 [run-with-store # ...]
In guix/scripts/system.scm:
 158: 1 [#<procedure 3f2c420 at guix/scripts/system.scm:158:4 (store)> #]
In guix/monads.scm:
 239: 0 [#<procedure 5e21270 at guix/monads.scm:237:2 args> #<output: file 
/dev/pts/6> ...]

guix/monads.scm:239:6: In procedure #<procedure 5e21270 at 
guix/monads.scm:237:2 args>:
guix/monads.scm:239:6: In procedure struct_vtable: Wrong type argument in 
position 1 (expecting struct): #<procedure 1b8e320 at ice-9/format.scm:1612:9 
(destination format-string . args) | (deprecated-format-string-only)>

After reverting GIT commit cc7fa59 it works correctly.