klam 0.0.5 → 0.0.6

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 462ec6cdadf1b62a21f9aa9fd1234e1602bd7ce8
-  data.tar.gz: 40a63f674eede22654c41ff77c7ccd341e52a68e
+  metadata.gz: b3c2a2a79c7fc9bd757b979c7e30ddb9db372ee3
+  data.tar.gz: 331259be37b2fd3c7581bd65907b3c0bfbebae5d
 SHA512:
-  metadata.gz: 4cdbfc50ed2c3ce0e41d5e003adf4f431c8a96e3cc36b704515aa2efba5fe7d335ea95abc99140b9b0ff796b82f2f4c04bc910330a5a2d5d578ef7e26e832a81
-  data.tar.gz: 01fca217423bb4e6314ab207a894dbc4d662c5463a7a6cfed97c0bb183e294a45fe37d458093fd8043c7dc9d195bbf4d364b49e2d3daf0eb521abe656d2acb2c
+  metadata.gz: 3803840c457f33c6d61b0615fe8f09199829ee71ca1f22e4ec3a1c3ada28439e648a404266f2242e755fec8bca9f60b9a9043ef20f7936ae5e40866cc9de3ef5
+  data.tar.gz: 7485c26bc1e70d7d0b45b4d7fba90162b9110af12d7a729133ba0c298b54d2f5af8650a7453dd610f773e8ea2c630b52d1a26eb07e30a66455521324562bff8d

data/HISTORY.asciidoc

@@ -1,6 +1,12 @@
 Relase History
 ==============
 
+v0.0.6 -- February 1, 2015
+--------------------------
+Breaking Changes
+~~~~~~~~~~~~~~~~
+* `rb-send-block` no longer takes an arity argument.
+
 v0.0.5 -- January 31, 2015
 --------------------------
 New Features

data/lib/klam/primitives/interop.rb

@@ -9,14 +9,14 @@ module Klam
       alias_method :"rb-send", :rb_send
       remove_method :rb_send
 
-      def rb_send_block(obj, method_name, blk_arity, blk, *args)
+      def rb_send_block(obj, method_name, blk, *args)
         if blk.instance_of?(::Symbol)
           # The caller won't take advantage of the currying, but we already
           # are tracking the curried form. This also allows for paritial
           # application of the named function, which could be interesting.
           blk = @curried_methods[blk]
         else
-          blk = ::Klam::Primitives::Interop.uncurry(blk, blk_arity)
+          blk = ::Klam::Primitives::Interop.uncurry(blk)
         end
         obj.send(method_name, *args, &blk)
       end
@@ -41,44 +41,11 @@ module Klam
       remove_method :rb_const
 
       class << self
-        def uncurry(blk, blk_arity)
-          case blk_arity
-          when 0
-            uncurry0(blk)
-          when 1
-            blk
-          when 2
-            uncurry2(blk)
-          when 3
-            uncurry2(blk)
-          when 4
-            uncurry2(blk)
-          when 5
-            uncurry2(blk)
-          else
-            ::Kernel.raise ::Klam::Error, "unsupported arity: #{blk_arity}"
+        def uncurry(blk)
+          lambda do |*args|
+            args.reduce(blk) { |f, x| f.call(x) }
           end
         end
-
-        def uncurry0(blk)
-          -> { blk.call(:NIL) }
-        end
-
-        def uncurry2(blk)
-          -> a, b { blk.call(a).call(b) }
-        end
-
-        def uncurry3(blk)
-          -> a, b, c { blk.call(a).call(b).call(c) }
-        end
-
-        def uncurry4(blk)
-          -> a, b, c, d { blk.call(a).call(b).call(c).call(d) }
-        end
-
-        def uncurry5(blk)
-          -> a, b, c, d, e { blk.call(a).call(b).call(c).call(d).call(e) }
-        end
       end
     end
   end

data/lib/klam/version.rb

@@ -1,3 +1,3 @@
 module Klam
-  VERSION = '0.0.5'
+  VERSION = '0.0.6'
 end

data/spec/functional/extensions/interop_spec.rb

@@ -9,7 +9,7 @@ describe 'extension: Ruby interop primitives', :type => :functional do
 
   describe 'rb-send-block' do
     it 'invokes a method on a Ruby object, passing the provided block' do
-      code = '(rb-send-block (cons 1 (cons 2 ())) map 1 (lambda X (* 2 X)))'
+      code = '(rb-send-block (cons 1 (cons 2 ())) map (lambda X (* 2 X)))'
       expect_kl(code).to eq([2, 4])
     end
 
@@ -17,7 +17,7 @@ describe 'extension: Ruby interop primitives', :type => :functional do
       eval_kl('(set vec (absvector 2))')
       result = eval_kl <<-EOKL
         (let V (absvector 2)
-          (do (rb-send-block (cons 1 (cons 2 ())) each_with_index 2
+          (do (rb-send-block (cons 1 (cons 2 ())) each_with_index
                              (lambda X (lambda Y (address-> V Y X))))
               V))
       EOKL
@@ -26,7 +26,7 @@ describe 'extension: Ruby interop primitives', :type => :functional do
 
     it 'supports symbols as blocks' do
       eval_kl('(set vec (absvector 2))')
-      expect_kl('(rb-send-block (cons 1 (cons 2())) map 1 str)').to eq(%w{1 2})
+      expect_kl('(rb-send-block (cons 1 (cons 2())) map str)').to eq(%w{1 2})
     end
   end
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: klam
 version: !ruby/object:Gem::Version
-  version: 0.0.5
+  version: 0.0.6
 platform: ruby
 authors:
 - Greg Spurrier