| 29 | RCPP_GENERATE_CTOR_ASSIGN(Promise_Impl) |
| 30 | |
| 31 | Promise_Impl( SEXP x){ |
| 32 | if( TYPEOF(x) != PROMSXP) { |
| 33 | const char* fmt = "Not a promise: [type = %s]."; |
| 34 | throw not_compatible(fmt, Rf_type2char(TYPEOF(x))); |
| 35 | } |
| 36 | |
| 37 | Storage::set__(x) ; |
| 38 | } |
| 39 | |
| 40 | /** |
| 41 | * Return the result of the PRSEEN macro |
nothing calls this directly
no outgoing calls
no test coverage detected