eval-string segfaults in Guile 1.7.0

[Arno Peters]

Evaluating (eval-string "(+ 1 2)" '()) in Guile 1.7.0 produces a
segmentation fault.

(gdb) r -q
The program being debugged has been started already.
Start it from the beginning? (y or n) y
Starting program: /usr/local/bin/guile -q
guile> (eval-string "(+ 1 2)" '())

Program received signal SIGSEGV, Segmentation fault.
scm_module_transformer (module=0x2974) at modules.c:391
391         return SCM_MODULE_TRANSFORMER (module);
(gdb) where
#0  scm_module_transformer (module=0x2974) at modules.c:391
#1  0x40058123 in scm_current_module_transformer () at modules.c:398
#2  0x4003ef78 in scm_primitive_eval_x (exp=0x40264088) at eval.c:4086
#3  0x40076c19 in inner_eval_string (data=0x402640b8) at strports.c:459
#4  0x40044d38 in scm_c_with_fluids (fluids=0x402640a8, values=0x402640b0, 
    cproc=0x40076bec <inner_eval_string>, cdata=0x402640b8) at fluids.c:244
#5  0x40044da2 in scm_c_with_fluid (fluid=0x4021ea60, value=0x2974, 
    cproc=0x40076bec <inner_eval_string>, cdata=0x402640b8) at fluids.c:255
#6  0x40057af3 in scm_c_call_with_current_module (module=0x2974, 
    func=0x40076bec <inner_eval_string>, data=0x402640b8) at modules.c:115
#7  0x40076c8f in scm_eval_string_in_module (string=0x402645b8, module=0x2974)
    at strports.c:484
#8  0x40042ba3 in scm_deval (x=0x2974, env=0x40264138) at eval.c:3174
#9  0x4003ef55 in scm_i_eval (exp=0x402645c0, env=0x40264138) at eval.c:4079
#10 0x4003eff3 in scm_primitive_eval (exp=0x402645c0) at eval.c:4104
#11 0x40042ba3 in scm_deval (x=0x2974, env=0x402643c0) at eval.c:3174
#12 0x4003ef55 in scm_i_eval (exp=0x402408e0, env=0x402643c0) at eval.c:4079
#13 0x40032ea4 in scm_start_stack (id=0x8052620, exp=0x402408e0, 
    env=0x402643c0) at debug.c:487
#14 0x40032f1b in scm_m_start_stack (exp=0x40240900, env=0x402643c0)
    at debug.c:503
#15 0x4004340b in scm_dapply (proc=0x40229b58, arg1=0x40240900, 
    args=0x40264178) at eval.c:3614
#16 0x400414a4 in scm_deval (x=0x40240900, env=0x402643c0) at eval.c:2725
#17 0x4004040e in scm_deval (x=0x40264188, env=0x402643c0) at eval.c:2253
#18 0x4004363d in scm_dapply (proc=0x402647c0, arg1=0x2974, args=0x40264728)
    at eval.c:3678
#19 0x40041322 in scm_deval (x=0x402647c0, env=0x40264760) at eval.c:2637
#20 0x40041b7d in scm_deval (x=0x402648b8, env=0x40264910) at eval.c:2882
#21 0x400435b5 in scm_dapply (proc=0x40264938, arg1=0x2974, args=0x40264910)
    at eval.c:3675
#22 0x4003de14 in scm_apply (proc=0x40264938, arg1=0x2974, args=0x2974)
    at eval.c:3475
#23 0x4003db2c in scm_call_0 (proc=0x40264938) at eval.c:3329
#24 0x4003245a in with_traps_inner (data=0x40264938) at debug.c:117
#25 0x40033712 in scm_internal_dynamic_wind (
    before=0x400323f0 <with_traps_before>, 
    inner=0x4003243c <with_traps_inner>, after=0x40032418 <with_traps_after>, 
    inner_data=0x40264938, guard_data=0xbfffe824) at dynwind.c:168
#26 0x400324c2 in scm_with_traps (thunk=0x40264938) at debug.c:127
#27 0x40042ba3 in scm_deval (x=0x2974, env=0x40264980) at eval.c:3174
#28 0x4004363d in scm_dapply (proc=0x402649a8, arg1=0x2974, args=0x40264980)
    at eval.c:3678
#29 0x4003de14 in scm_apply (proc=0x402649a8, arg1=0x2974, args=0x2974)
    at eval.c:3475
#30 0x4003db2c in scm_call_0 (proc=0x402649a8) at eval.c:3329
#31 0x40033712 in scm_internal_dynamic_wind (
    before=0x4002dc0c <decrease_block>, inner=0x4003db04 <scm_call_0>, 
    after=0x4002dbe8 <increase_block>, inner_data=0x402649a8, guard_data=0x0)
    at dynwind.c:168
#32 0x4002dd04 in scm_call_with_unblocked_asyncs (proc=0x402649a8)
    at async.c:350
#33 0x40042ba3 in scm_deval (x=0x2974, env=0x402649f0) at eval.c:3174
#34 0x4004363d in scm_dapply (proc=0x40264a40, arg1=0x2974, args=0x402649f0)
    at eval.c:3678
#35 0x4003de14 in scm_apply (proc=0x40264a40, arg1=0x2974, args=0x2974)
    at eval.c:3475
#36 0x4003db2c in scm_call_0 (proc=0x40264a40) at eval.c:3329
#37 0x40078cfd in scm_body_thunk (body_data=0xbfffecd0) at throw.c:350
#38 0x40078be0 in scm_internal_lazy_catch (tag=0x2374, 
    body=0x40078cdc <scm_body_thunk>, body_data=0xbfffecd0, 
    handler=0x40078d04 <scm_handle_by_proc>, handler_data=0xbfffece8)
    at throw.c:282
#39 0x400790d6 in scm_lazy_catch (key=0x2374, thunk=0x40264a40, 
    handler=0x402347b8) at throw.c:579
#40 0x40042ba3 in scm_deval (x=0x40232d10, env=0x40264a90) at eval.c:3174
#41 0x4004363d in scm_dapply (proc=0x40264b10, arg1=0x2974, args=0x40264a90)
    at eval.c:3678
#42 0x4003de14 in scm_apply (proc=0x40264b10, arg1=0x2974, args=0x2974)
    at eval.c:3475
#43 0x4003db2c in scm_call_0 (proc=0x40264b10) at eval.c:3329
#44 0x40078cfd in scm_body_thunk (body_data=0xbfffefe0) at throw.c:350
#45 0x40078a7b in scm_internal_catch (tag=0x2374, 
    body=0x40078cdc <scm_body_thunk>, body_data=0xbfffefe0, 
    handler=0x40078d04 <scm_handle_by_proc>, handler_data=0xbfffeff8)
    at throw.c:206
#46 0x40079066 in scm_catch (key=0x2374, thunk=0x40264b10, handler=0x40264ac8)
    at throw.c:550
#47 0x40042ba3 in scm_deval (x=0x40236f80, env=0x40264ba8) at eval.c:3174
#48 0x4004040e in scm_deval (x=0x40264b60, env=0x40264ba8) at eval.c:2253
#49 0x4004363d in scm_dapply (proc=0x40264c30, arg1=0x2974, args=0x40264c08)
    at eval.c:3678
#50 0x4003de14 in scm_apply (proc=0x40264c30, arg1=0x2974, args=0x2974)
    at eval.c:3475
#51 0x4003db2c in scm_call_0 (proc=0x40264c30) at eval.c:3329
#52 0x40033712 in scm_internal_dynamic_wind (
    before=0x4002dbe8 <increase_block>, inner=0x4003db04 <scm_call_0>, 
    after=0x4002dc0c <decrease_block>, inner_data=0x40264c30, guard_data=0x0)
    at dynwind.c:168
#53 0x4002dc64 in scm_call_with_blocked_asyncs (proc=0x40264c30) at async.c:324
#54 0x40042ba3 in scm_deval (x=0x2974, env=0x40264d58) at eval.c:3174
#55 0x4004040e in scm_deval (x=0x40264f30, env=0x402612d0) at eval.c:2253
#56 0x4004040e in scm_deval (x=0x402614a0, env=0x40261518) at eval.c:2253
#57 0x4004363d in scm_dapply (proc=0x40262728, arg1=0x2974, args=0x40261518)
    at eval.c:3678
#58 0x4003de14 in scm_apply (proc=0x40262728, arg1=0x2974, args=0x2974)
    at eval.c:3475
#59 0x4003db2c in scm_call_0 (proc=0x40262728) at eval.c:3329
#60 0x400335ef in scm_dynamic_wind (in_guard=0x40262760, thunk=0x40262728, 
    out_guard=0x402626c0) at dynwind.c:128
#61 0x4003d98b in scm_ceval (x=0x40258f90, env=0x402627a8) at eval.c:3223
#62 0x4003eef1 in scm_i_eval_x (exp=0x40231320, env=0x402312f0) at eval.c:4072
#63 0x4003efa3 in scm_primitive_eval_x (exp=0x40231320) at eval.c:4090
#64 0x4003f082 in inner_eval_x (data=0x40231320) at eval.c:4137
#65 0x40033712 in scm_internal_dynamic_wind (
    before=0x4003effc <change_environment>, inner=0x4003f064 <inner_eval_x>, 
    after=0x4003f030 <restore_environment>, inner_data=0x40231320, 
    guard_data=0x40231308) at dynwind.c:168
#66 0x4003f0f5 in scm_eval_x (exp=0x40231320, module=0x8051f30) at eval.c:4146
#67 0x4006eb3e in scm_shell (argc=2, argv=0xbffffa34) at script.c:692
#68 0x080488b8 in inner_main (closure=0x0, argc=2, argv=0xbffffa34)
    at guile.c:81
#69 0x40054832 in invoke_main_func (body_data=0xbffff988) at init.c:626
#70 0x400547df in scm_boot_guile_1 (base=0xbffff984, closure=0xbffff988)
    at init.c:606
#71 0x400544e8 in scm_boot_guile (argc=2, argv=0xbffffa34, 
    main_func=0x80488a4 <inner_main>, closure=0x0) at init.c:424
#72 0x080488e5 in main (argc=2, argv=0xbffffa34) at guile.c:96

pgpcmUJXGBwpP.pgp
Description: PGP signature