summaryrefslogtreecommitdiff
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c17
1 files changed, 14 insertions, 3 deletions
diff --git a/eval.c b/eval.c
index 2bd416f..5a18ee3 100644
--- a/eval.c
+++ b/eval.c
@@ -3491,10 +3491,21 @@ rb_abort()
}
static VALUE
-rb_f_abort()
+rb_f_abort(argc, argv)
+ int argc;
+ VALUE *argv;
{
rb_secure(4);
- rb_abort();
+ if (argc == 0) {
+ rb_abort();
+ }
+ else {
+ VALUE mesg;
+
+ rb_scan_args(argc, argv, "01", &mesg);
+ rb_io_puts(argc, argv, rb_stderr);
+ exit(1);
+ }
return Qnil; /* not reached */
}
@@ -6056,7 +6067,7 @@ Init_eval()
rb_define_global_function("caller", rb_f_caller, -1);
rb_define_global_function("exit", rb_f_exit, -1);
- rb_define_global_function("abort", rb_f_abort, 0);
+ rb_define_global_function("abort", rb_f_abort, -1);
rb_define_global_function("at_exit", rb_f_at_exit, 0);