| 53 | } |
| 54 | |
| 55 | bool was_evaluated() const { |
| 56 | #if R_VERSION < R_Version(4,6,0) |
| 57 | return PRVALUE(Storage::get__()) != R_UnboundValue ; |
| 58 | #else |
| 59 | SEXP env = environment(); |
| 60 | R_BindingType_t bt = R_GetBindingType(Storage::get__(), env); |
| 61 | return bt != R_BindingTypeUnbound; |
| 62 | #endif |
| 63 | } |
| 64 | |
| 65 | /** |
| 66 | * The promise expression: PRCODE |