mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
merges r23970 from trunk into ruby_1_9_1.
-- * proc.c (make_curry_proc): should propagate lambda-ness. [ruby-core:24127] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_9_1@24069 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
4240de3c6d
commit
b9faaa1832
4 changed files with 28 additions and 3 deletions
|
@ -1,3 +1,8 @@
|
|||
Mon Jul 6 09:31:50 2009 Nobuyoshi Nakada <nobu@ruby-lang.org>
|
||||
|
||||
* proc.c (make_curry_proc): should propagate lambda-ness.
|
||||
[ruby-core:24127]
|
||||
|
||||
Sun Jul 5 14:04:36 2009 Nobuyoshi Nakada <nobu@ruby-lang.org>
|
||||
|
||||
* thread.c (rb_threadptr_exec_event_hooks): new function to
|
||||
|
|
12
proc.c
12
proc.c
|
@ -1694,9 +1694,17 @@ static VALUE
|
|||
make_curry_proc(VALUE proc, VALUE passed, VALUE arity)
|
||||
{
|
||||
VALUE args = rb_ary_new3(3, proc, passed, arity);
|
||||
rb_proc_t *procp;
|
||||
int is_lambda;
|
||||
|
||||
GetProcPtr(proc, procp);
|
||||
is_lambda = procp->is_lambda;
|
||||
rb_ary_freeze(passed);
|
||||
rb_ary_freeze(args);
|
||||
return rb_proc_new(curry, args);
|
||||
proc = rb_proc_new(curry, args);
|
||||
GetProcPtr(proc, procp);
|
||||
procp->is_lambda = is_lambda;
|
||||
return proc;
|
||||
}
|
||||
|
||||
static VALUE
|
||||
|
@ -1710,7 +1718,7 @@ curry(VALUE dummy, VALUE args, int argc, VALUE *argv, VALUE passed_proc)
|
|||
passed = rb_ary_plus(passed, rb_ary_new4(argc, argv));
|
||||
rb_ary_freeze(passed);
|
||||
|
||||
if(RARRAY_LEN(passed) < FIX2INT(arity)) {
|
||||
if (RARRAY_LEN(passed) < FIX2INT(arity)) {
|
||||
if (!NIL_P(passed_proc)) {
|
||||
rb_warn("given block not used");
|
||||
}
|
||||
|
|
|
@ -176,6 +176,18 @@ class TestProc < Test::Unit::TestCase
|
|||
|
||||
b = proc { :foo }
|
||||
assert_equal(:foo, b.curry[])
|
||||
|
||||
b = lambda {|x, y, &b| b.call(x + y) }.curry
|
||||
b = b.call(2) { raise }
|
||||
b = b.call(3) {|x| x + 4 }
|
||||
assert_equal(9, b)
|
||||
|
||||
l = proc {}
|
||||
assert_equal(false, l.lambda?)
|
||||
assert_equal(false, l.curry.lambda?, '[ruby-core:24127]')
|
||||
l = lambda {}
|
||||
assert_equal(true, l.lambda?)
|
||||
assert_equal(true, l.curry.lambda?, '[ruby-core:24127]')
|
||||
end
|
||||
|
||||
def test_curry_ski_fib
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#define RUBY_VERSION "1.9.1"
|
||||
#define RUBY_RELEASE_DATE "2009-07-12"
|
||||
#define RUBY_PATCHLEVEL 219
|
||||
#define RUBY_PATCHLEVEL 220
|
||||
#define RUBY_VERSION_MAJOR 1
|
||||
#define RUBY_VERSION_MINOR 9
|
||||
#define RUBY_VERSION_TEENY 1
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue