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
|
