guile 1.8 and x86_64

[Quanah Gibson-Mount]

guile 1.8 fails to compile for me on my x86_64 box.  I saw some previous 
thread about guile 1.7.xx having this issue, and I was wondering if there's 
been a fix since the 1.8 release.

guile reports:

Making all in libguile
make[2]: Entering directory 
`/afs/ir.stanford.edu/src/pubsw/languages/guile-1.8.0/build/@sys/libguile'
cat alist.doc arbiters.doc async.doc backtrace.doc boolean.doc chars.doc 
continuations.doc debug.doc deprecation.doc deprecated.doc discouraged.doc 
dynl.doc dynwind.doc environments.doc eq.doc error.doc eval.doc evalext.doc 
extensions.doc feature.doc fluids.doc fports.doc futures.doc gc.doc 
goops.doc gsubr.doc gc-mark.doc gc-segment.doc gc-malloc.doc gc-card.doc 
guardians.doc hash.doc hashtab.doc hooks.doc i18n.doc init.doc ioext.doc 
keywords.doc lang.doc list.doc load.doc macros.doc mallocs.doc modules.doc 
numbers.doc objects.doc objprop.doc options.doc pairs.doc ports.doc 
print.doc procprop.doc procs.doc properties.doc random.doc rdelim.doc 
read.doc root.doc rw.doc scmsigs.doc script.doc simpos.doc smob.doc 
sort.doc srcprop.doc stackchk.doc stacks.doc stime.doc strings.doc 
srfi-4.doc srfi-13.doc srfi-14.doc strorder.doc strports.doc struct.doc 
symbols.doc threads.doc throw.doc values.doc variable.doc vectors.doc 
version.doc vports.doc weaks.doc ramap.doc unif.doc dynl.doc filesys.doc 
posix.doc net_db.doc socket.doc regex-posix.doc | 
GUILE="/afs/ir/src/pubsw/languages/guile-1.8.0/build/@sys/pre-inst-guile" 
../../../scripts/snarf-check-and-output-texi --manual > guile.texi || { rm 
guile.texi; false; }
ERROR: In procedure memoization:
ERROR: Bad binding (vector-set! x (unquote (caddr e)) y) in expression 
(letrec ((genmatch (lambda (x clauses match-expr) (let* ((length>= #) 
#<freed cell 0x2aaaabb57380; GC missed a reference> (blist #) (plist #) 
(code #)) (unreachable plist match-expr) (inline-let (quasiquote #))))) 
(genletrec (lambda (pat exp body match-expr) (let* ((length>= #) (eb-errf 
#) (x #) (p #) (bv #) (bindings #) (code #) (plist #) (x #) (m #) ...) 
(unreachable plist match-expr) (quasiquote (letrec # #))))) (gendefine 
(lambda (pat exp match-expr) (let* ((length>= #) (eb-errf #) (x #) (p #) 
(bv #) (bindings #) (code #) (plist #) (x #) (m #) ...) (unreachable plist 
match-expr) (quasiquote (begin # #))))) (pattern-var? (lambda (x) (and 
(symbol? x) (not (dot-dot-k? x)) (not (memq x #))))) (dot-dot-k? (lambda 
(s) (and (symbol? s) (if (memq s #) 0 (let* # #))))) (error-maker (lambda 
(match-expr) (cond ((eq? match:error-control #) (cons # #)) ((memq 
match:error-control #) (cons # #)) ((eq? match:error-control #) (let # #)) 
(else (match:syntax-err # "invalid value for match:error-control, legal 
values are"))))) (unreachable (lambda (plist match-expr) (for-each (lambda 
(x) (if # #)) plist))) (validate-pattern (lambda (pattern) (letrec 
((simple? #) (ordinary #) (quasi #) (ordlist #)) (ordinary pattern)))) 
(unquote e) (inline-let (lambda (let-exp) (letrec ((occ #) (subst #) 
(const? #) (isval? #) (small? #)) (let loop (# # #) (cond # # #))))) ...) 
(list genmatch genletrec gendefine pattern-var?)).
make[2]: *** [guile.texi] Error 1
make[2]: Leaving directory 
`/afs/ir.stanford.edu/src/pubsw/languages/guile-1.8.0/build/@sys/libguile'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory 
`/afs/ir.stanford.edu/src/pubsw/languages/guile-1.8.0/build/@sys'
make: *** [all] Error 2


Thanks,
Quanah

--
Quanah Gibson-Mount
Principal Software Developer
ITS/Shared Application Services
Stanford University
GnuPG Public Key: http://www.stanford.edu/~quanah/pgp.html