Method: Lisp::PrimEnvironment.environment_boundp_impl

Defined in:
lib/rubylisp/prim_environment.rb

.environment_boundp_impl(args, env) ⇒ Object 



71
72
73
74
75
 
# File 'lib/rubylisp/prim_environment.rb', line 71

def self.environment_boundp_impl(args, env)
  return Lisp::Debug.process_error("environment-bound? requires an environment for it's first argument, received: #{args.car}", env) unless args.car.environment?
  return Lisp::Debug.process_error("environment-bound? requires a symbol for it's second argument, received: #{args.cadr}", env) unless args.cadr.symbol?
  Lisp::Boolean.with_value(args.car.value.name_bound_locally?(args.cadr.name)) 
end