diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-05-23 21:56:21 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-05-23 21:56:21 +0300 |
commit | 90557d5cd883ed05f318707a468029eca3227fc5 (patch) | |
tree | 5b1c7ea221ad2a63970f16a5b6a142ad0211a50d /src/guile.c | |
parent | bd7fae53da7baa676322e974f74dd38be9233ce6 (diff) | |
download | cfpeek-90557d5cd883ed05f318707a468029eca3227fc5.tar.gz cfpeek-90557d5cd883ed05f318707a468029eca3227fc5.tar.bz2 |
Update
Diffstat (limited to 'src/guile.c')
-rw-r--r-- | src/guile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/guile.c b/src/guile.c index b4aa898..8fc06cc 100644 --- a/src/guile.c +++ b/src/guile.c @@ -34,7 +34,7 @@ eval_catch_body(void *list) static SCM eval_catch_handler(void *data, SCM tag, SCM throw_args) { - scm_handle_by_message_noexit("idest", tag, throw_args); + scm_handle_by_message_noexit(program_name, tag, throw_args); longjmp(*(jmp_buf*)data, 1); } |