search for: symvalue

...:09.000000000 +0100 @@ -971,7 +971,11 @@ print2buff(")", d); break; case PP_SUBSET: + if ((parens = needsparens(fop, CAR(s), 1))) + print2buff("(", d); deparse2buff(CAR(s), d); + if (parens) + print2buff(")", d); if (PRIMVAL(SYMVALUE(op)) == 1) print2buff("[", d); else With this applied, the output is more consistent: > substitute(a[1], list(a = quote(x * y))) (x * y)[1] > substitute(a$b, list(a = quote(x * y))) (x * y)$b Best Regards, Lukas Stadler

...ctor LOGICAL R_PreserveObject Rf_mkChar SET_STRING_ELT Rf_findVar R_UnboundValue VECTOR_ELT R_NamesSymbol Rf_getAttrib Rf_length STRING_ELT R_CHAR R_do_slot Rf_asChar PRINTNAME Rf_isNull CAR CDR R_data_class Rf_isFunction Rf_findFun SETCAR Rf_eval INTEGER CLOENV Rf_findVarInFrame Rf_isSymbol ENCLOS SYMVALUE Rf_asLogical R_MissingArg Rf_isPrimitive do_set_prim_method BODY R_deferred_default_method PREXPR PRENV R_DotsSymbol DDVAL R_set_prim_method Rf_defineVar R_do_slot_assign mkdir ../../../../library/methods/libs make[5]: Leaving directory `/tmp_mnt/net/fire/s/fire/1/richardb/Tru64/src/library/methods...

...f_defineVar Rf_eval Rf_findVar Rf_findVarInFrame Rf_findFun Rf_getAttrib Rf_install Rf_isEnvironment Rf_isFunction Rf_isNull Rf_isObject Rf_isPrimitive Rf_isSymbol Rf_length Rf_mkChar ATTRIB R_CHAR STRING_ELT SET_STRING_ELT VECTOR_ELT LOGICAL INTEGER TAG CAR CDR MISSING SETCAR BODY CLOENV PRINTNAME SYMVALUE DDVAL FRAME ENCLOS Rf_type2str R_PreserveObject R_set_standardGeneric_ptr R_data_class R_deferred_default_method R_set_prim_method do_set_prim_method R_set_quick_method_check R_do_slot R_do_slot_assign mkdir -p -- ../../../../library/methods/libs gmake[5]: Leaving directory `/soft/R/R-1.5.1/src/lib...