stack overflow

[Rainer Tammer]

Hello,
I tried to build GUILE 1.8.3 on AIX 6.1 with the IBM XL C/C++ 9.0 compiler.
During the build I get the following error:


./guile_filter_doc_snarfage --filter-snarfage) > regex-posix.doc || { rm 
regex-posix.doc; false; }
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="/daten/source/test/guile-1.8.3/pre-inst-guile" \
   ../scripts/snarf-check-and-output-texi          > \
   guile-procedures.texi || { rm guile-procedures.texi; \ false; }
ERROR: Stack overflow
gmake[3]: *** [guile-procedures.texi] Error 1

the stack overflow is caused by the "pre-inst-guile"

# ./pre-inst-guile
Backtrace:
In unknown file:
  ?: 65* [#<procedure #f ()>]
  ?: 66* (let* ((file #)) (cond (# => #) (# => #)))
  ?: 67  [#<procedure #f (full)> 
"/daten/source/test/guile-1.8.3/ice-9/null.scm"]
  ?: 68  [with-fluid* #<fluid 7> #f #<procedure #f ()>]
  ?: 69* [#<procedure #f ()>]
  ?: 70* [load-file #<primitive-procedure primitive-load> ...]
  ?: 71* [save-module-excursion #<procedure #f ()>]
  ?: 72  (let (# #) (dynamic-wind # thunk #))
  ?: 73  [dynamic-wind #<procedure #f ()> #<procedure #f ()> 
#<procedure #f ()>]
  ?: 74* [#<procedure #f ()>]
  ?: 75* [primitive-load "/daten/source/test/guile-1.8.3/ice-9/null.scm"]
In /daten/source/test/guile-1.8.3/ice-9/null.scm:
 20: 76* (define-module (ice-9 null) :use-module ...)
In unknown file:
  ?: 77* [copy-tree ...
  ?: 78* [apply #<procedure #f args> ((ice-9 null) :use-module (ice-9 
syncase) ...)]
  ?: 79  [#<procedure #f args> (ice-9 null) :use-module ...]
  ?: 80  (quasiquote (eval-case (# #) (else #)))
  ?: 81* [compile-define-module-args ((ice-9 null) :use-module (ice-9 
syncase) ...)]
  ?: 82  ((letrec ((loop #)) loop) (quasiquote ((quote #))) (cdr args))
  ?: 83* (letrec ((loop (lambda # #))) loop)
  ?: 84* (lambda (compiled-args args) (cond (# #) (# #) (# #) ...))

<unnamed port>: In expression (lambda (compiled-args args) (cond # # ...)):
<unnamed port>: Stack overflow

Bye
 Rainer