Is REBOL interpreted or byte-compiled?
The reason I ask this is I see get word called 800,000 times below and I hope that
each invocation does not incur the overhead of a function call.
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]
]
---
; run this in your
; <a href=http://www.rebol.com>REBOL</a> Interpreter!
terrence-brannon: [ [EMAIL PROTECTED] perl-refugee myth-gamer ]
perl-refugee: [ 'loved href perl discovery: (metaperl = rebol) 'hates href perl ]
myth-gamer:http://www.bungie.net/bin/stats.pl?player=princepawn
; angles makes this a href instead of code! use ur imagination!
href: func [U T] [ rejoin [ "a href=" U ">" T "/a" ] ]
perl: href http://www.perl.com "Perl"
Get your FREE Email and Voicemail at Lycos Communications at
http://comm.lycos.com
