Method: Lisp::PrimEnvironment.find_top_level_environment_impl

Defined in:
lib/rubylisp/prim_environment.rb

.find_top_level_environment_impl(args, env) ⇒ Object 



195
196
197
198
199
 
# File 'lib/rubylisp/prim_environment.rb', line 195

def self.find_top_level_environment_impl(args, env)
  return Lisp::Debug.process_error("find-top-level-environment requires a symbol or sting environment name, received: #{args.cadr}", env) unless args.cadr.symbol? || args.cadr.string
  e = Lisp::TopLevelEnvironments[args.car.to_s]
  return e.nil? ? nil : Lisp::Environment.with_value(e)
end