[ff3d-users] make error

[osman buyuk]

Hi,
 I just downloaded the pre-release tar file.  But like the current cvs version 
I am getting this error during make (my guile is  1.6.4) :
address@hidden:~/freefem3d-1.0pre6> make
autogen -DLEVEL=section -L/usr/share/autogen checkopt.def
ERROR: In procedure eval!:
ERROR: Wrong type argument in position 2 (expecting MODULEP): AutoGen aborting 
on signal 11 (Segmentation fault) in state INIT
Failing Guile command:  = = = = =

(use-modules (ice-9 common-list))
(define identifier?
(lambda (x) (or (string? x) (symbol? x))))
(define normalize-identifier
(lambda (x)
(if (string? x) (string->symbol x) x)))
(define coerce->string
(lambda (x)
(let ((char->string (lambda (x) (make-string 1 x)))
(coercable? (lambda (x)
(or (string? x) (boolean? x) (char? x)
(symbol? x) (list? x) (number? x)) )) )
(if (not (coercable? x))
(error "Wrong type to coerce->string" x))
(cond
((string? x)  (string-append
(char->string #\") x (char->string #\")  ))
((boolean? x) (if x "#t" "#f"))
((char? x)    (char->string x))
((number? x)  (number->string x))
((symbol? x)  (symbol->string x))
((list? x)    (if (every coercable? x)
(apply string-append (map coerce->string x))  ))
) ) ) )
(define alist->autogen-def
(lambda (lst . recursive)
(if (null? recursive) (set! recursive #f)
(set! recursive #t))
(let ((res (if recursive "{\n" ""))
(list-nnul? (lambda (x) (and (list? x) (not (null? x))))))
(do ((i lst (cdr i)))
((null? i) (if recursive
(string-append res "}")
res))
(let* ((kvpair (car i))
(value (cdr kvpair))
(value-is-alist (if (and (list-nnul? value)
(list-nnul? (car value))
(list-nnul? (caar value))
(identifier? (caaar value)))
#t #f)))
(set! res (string-append res
(coerce->string (normalize-identifier (car kvpair)))
" = "
(if value-is-alist
(alist->autogen-def (car value) 1)
(coerce->string (cdr kvpair)))
";\n"
) ) ) ) ) )         )
(define header-file  "")
(define header-guard "")
(define (make-header-guard hdr-pfx)
(begin
(set! header-file  (out-name))
(set! header-guard (string-upcase! (string->c-name! (string-append
(if (string? hdr-pfx) hdr-pfx "HEADER") "_" header-file "_GUARD"
))))
(sprintf "#ifndef %1$s\n#define %1$s" header-guard)
) )
(define autogen-version "5.5.7")
(define-macro (defined-as predicate symbol)
`(and (defined? ',symbol) (,predicate ,symbol)))
(define html-escape-encode (lambda (str)
(string-substitute str
'("&"      "<"     ">")
'("&amp;"  "&lt;"  "&gt;") ) ))
(use-modules (ice-9 debug))
(read-enable 'positions)

=================================
make: *** [checkopt.c] Error 139
address@hidden:~/freefem3d-1.0pre6>