bug#22271: Cannot use u32vector-set! from (srfi srfi-4)

[David Thompson <dthompson2@worcester.edu>]

Using Guile built from the master branch at commit
a9c2606451aebc708f75d0cb02a0b1aa84eec904, I am experiencing a strange
issue when trying to use u32vector-set in the (srfi srfi-4) module.  I
suspect this is indicative of a more general problem, but I can't really
say because I am completely confused. :)

    $ guile
    GNU Guile UNKNOWN
    Copyright (C) 1995-2014 Free Software Foundation, Inc.
    
    Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
    This program is free software, and you are welcome to redistribute it
    under certain conditions; type `,show c' for details.
    
    Enter `,help' for help.
    scheme@(guile-user)> ,use (srfi srfi-4)
    scheme@(guile-user)> u32vector-set!
    ERROR: ERROR: In procedure private-lookup: No variable bound to u32vector-set! in module (guile)
    
    Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.


For the record, I built Guile using Guix and the following recipe:

    (use-modules (guix packages)
                 (guix git-download)
                 (guix utils)                 
                 (gnu packages)
                 (gnu packages autotools)
                 (gnu packages pkg-config)
                 (gnu packages texinfo)
                 (gnu packages guile)
                 (gnu packages flex)
                 (gnu packages texinfo)
                 (gnu packages gettext))

    (package (inherit guile-2.0)
        (name "guile-next")
        (version "2.1.1")
        (source (origin
                  (method git-fetch)
                  (uri (git-reference
                        (url "git://git.sv.gnu.org/guile.git")
                        (commit "a9c2606")))
                  (sha256
                   (base32
                    "1by0zlk2xbgfj7h20yyj5za0g39dbhiasqfvqrz563ixgx8k0m1l"))))
        (arguments
         (substitute-keyword-arguments `(#:tests? #f
                                         ,@(package-arguments guile-2.0))
           ((#:phases phases)
            `(modify-phases ,phases
               (add-after 'unpack 'autogen
                          (lambda _
                            (zero? (system* "sh" "autogen.sh"))))
               (add-before 'autogen 'patch-/bin/sh
                           (lambda _
                             (substitute* "build-aux/git-version-gen"
                               (("#!/bin/sh") (string-append "#!" (which "sh"))))
                             #t))))))
        (native-inputs
         `(("autoconf" ,autoconf)
           ("automake" ,automake)
           ("libtool" ,libtool)
           ("gettext" ,gnu-gettext)
           ("flex" ,flex)
           ("texinfo" ,texinfo)
           ,@(package-native-inputs guile-2.0)))
        (synopsis "Snapshot of what will become version 2.2 of GNU Guile"))

Hope this helps!

-- 
David Thompson
GPG Key: 0FF1D807