class Lisp::PrimNativeObject

Public Class Methods

register() click to toggle source
# File lib/rubylisp/prim_native_object.rb, line 5
def self.register
  Primitive.register("wrap-object", "1")  {|args, env| Lisp::NativeObject::wrap_impl(args, env) }
end
wrap_impl(args, env) click to toggle source
# File lib/rubylisp/prim_native_object.rb, line 9
def self.wrap_impl(args, env)
  raw_val = args.car.evaluate(env)
  val = if raw_val.list?
          raw_val.to_a
        else
          raw_val
        end
  NativeObject.with_value(val)
end