Extracting current stack frame values using R/S.

get-arguments.red

Red []

get-arguments: routine [
	/local
		list [red-block!]
		s    [red-value!]
		t    [red-value!]
		top
][
	top: stack/ctop - 3	;-- might need adjustments depending on interpreted vs compiled code.
	s: top/prev
	t: stack/arguments
	list: block/push-only* 4	
	while [s < t][
		block/rs-append list s
		s: s + 1
	]
	SET_RETURN(list)
]

foo: function [a [integer!] b [string!] c [pair!] /bar /local d][
	probe get-arguments
]

foo 123 "hello" 4x5
foo/bar 456 "world" 9x8

;; will output:
;; [123 "hello" 4x5 false none none]
;; [456 "world" 9x8 true none none]