get_with_paren.red

Red [
  author: "Nędza Darek"
  license: "point to this gist/github"
]

get-with-paren: function [:word [word! path! paren!]] [
 case [
   word? word [
     get get :word
   ]

   path? word [
     get get :word
   ]

   paren? word [
     do reduce [head insert back tail word 'get]
   ]
   
 ]
]
a: 'b
b: 42
get-with-paren a

p: 'arr/foo/baz
arr: [foo [baz 111]]
get-with-paren p

arr2: [a [1 2] b [3 4]]
p2: 'arr2/b
get-with-paren (remove next p2)
arr2; == [a [1 2] b [3]]