update cross-compilation test

[bpt/guile.git] / test-suite / tests / cross-compilation.test

diff --git a/test-suite/tests/cross-compilation.test b/test-suite/tests/cross-compilation.test
index 175e640..b15c51d 100644 (file)
--- a/test-suite/tests/cross-compilation.test
+++ b/test-suite/tests/cross-compilation.test
@@ -56,8 +56,8 @@
                         (string=? (native-os) (target-os)))
                    (native-word-size)
                    word-size))
-              (bv (compile '(hello-world) #:to 'bytecode)))
-          (and=> (parse-elf bv)
+              (bv+constants (compile '(hello-world) #:to 'bytecode)))
+          (and=> (parse-elf (car bv+constants))
                  (lambda (elf)
                    (and (equal? (elf-byte-order elf) endian)
                         (equal? (elf-word-size elf) word-size)))))))))