forked from rebol/rebol
-
Notifications
You must be signed in to change notification settings - Fork 2
angerangel edited this page Dec 18, 2012
·
1 revision
?? 'name
Debug print a word, path, or block of such, followed by its molded value. ?? is a function value.
- name -- Word, path, and block to obtain values.
??: make function! [ [ {Debug print a word, path, or block of such, followed by its molded value.} 'name "Word, path, and block to obtain values." /local out ][ case [ any [ word? :name path? :name ] [ print ajoin [name ": " mold name: get :name] ] block? :name [ out: make string! 50 foreach word name [ either any [ word? :word path? :word ] [ repend out [word ": " mold get word " "] ] [ repend out [mold word " "] ] ] print out ] true [probe :name] ] :name ] ]