Hash :
ed679850
Author :
Date :
2006-10-30T17:01:46
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
\ Test Error-catching for user-defined macros and other new features.
\ Including: erroneous attempt at recursive macro invocation...
\ Updated Tue, 17 Jan 2006 at 11:25 PST by David L. Paktor
global-definitions
[macro] lookma
[macro]
[macro] lookpa .( Hey, Pa! Hands! HaHa! )
[macro] heylookmeover .( What's clover?) \ It's money, honey!
[macro] lookout .( Look out, look out look out!
[macro] f[looknoquote f[ ." I forgot
#message Are you ready?
alias foop dup
overload [macro] dup #message" Faking a DUP here" foop
device-definitions
fcode-version2
headers
lookpa
heylookmeover
lookpa
lookout
f[looknoquote ]f
: whatzit
heylookmeover
dup
to heylookmeover
dup
to 2+
;
a#
#message Here comes a little bit of macro recursion.
[macro] foop #message" It's a call to dup, but which one?" dup
: now-what?
#message Don't try this at home, kids...
dup
;
fcode-end