Contents

class Nydp::Builtin::GreaterThan
  include Nydp::Builtin::Base, Singleton

  def builtin_invoke vm, args
    vm.push_arg (greater_than(args.car, args.cdr) ? Nydp::T : Nydp::NIL)
  end

  def greater_than arg, args
    return true if Nydp::NIL.is? args
    (arg > args.car) && greater_than(args.car, args.cdr)
  end

  def name ; ">" ; end
end

Version data entries

7 entries across 7 versions & 1 rubygems

Version	Path
nydp-0.3.0	lib/nydp/builtin/greater_than.rb
nydp-0.2.6	lib/nydp/builtin/greater_than.rb
nydp-0.2.5	lib/nydp/builtin/greater_than.rb
nydp-0.2.3	lib/nydp/builtin/greater_than.rb
nydp-0.2.2	lib/nydp/builtin/greater_than.rb
nydp-0.2.1	lib/nydp/builtin/greater_than.rb
nydp-0.2.0	lib/nydp/builtin/greater_than.rb