Method: Lisp::PrimEnvironment.environment_macro_names_impl

Defined in:
lib/rubylisp/prim_environment.rb

.environment_macro_names_impl(args, env) ⇒ Object 



47
48
49
50
51
 
# File 'lib/rubylisp/prim_environment.rb', line 47

def self.environment_macro_names_impl(args, env)
  return Lisp::Debug.process_error("environment-macro-names requires an environment for it's argument, received: #{args.car}", env) unless args.car.environment?
  e = args.car.value
  Lisp::ConsCell.array_to_list(e.bound_values.select {|v| v.macro?})
end