* wraps the given environment * * if the SEXP is not an environment, and exception is thrown */
| 54 | * if the SEXP is not an environment, and exception is thrown |
| 55 | */ |
| 56 | Environment_Impl(SEXP x) { |
| 57 | Shield<SEXP> env(as_environment(x)); |
| 58 | Storage::set__(env) ; |
| 59 | } |
| 60 | |
| 61 | /** |
| 62 | * Gets the environment associated with the given name |
no outgoing calls
no test coverage detected