411 REFERENCE · Wikibooks
Rebol Programming/source
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
SOURCE 'word
DESCRIPTION:
Prints the source code for a word.
SOURCE is a function value.
ARGUMENTS
word -- (Type: word)
SOURCE CODE
source: func [
"Prints the source code for a word."
'word [word!]
][
prin join word ": "
if not value? word [print "undefined" exit]
either any [native? get word op? get word action? get word] [
print ["native" mold third get word]
] [print mold get word]
]