Class: Nydp::Builtin::IsPair

Inherits:

Object

Object
Nydp::Builtin::IsPair

Includes:: Helper

Defined in:: lib/nydp/builtin/cons.rb

Instance Method Summary collapse

#invoke(vm, args) ⇒ Object

Methods included from Helper

#cons, #list, #literal?, #pair?, #sym, #sym?

Instance Method Details

#invoke(vm, args) ⇒ `Object`

# File 'lib/nydp/builtin/cons.rb', line 10

def invoke vm, args
  arg = args.car
  result = pair?(arg) ? Nydp.T : Nydp.NIL
  vm.push_arg result
end