Annotation of gforth/test/deferred.fs, revision 1.2
1.1 anton 1: \ test DEFER and friends
2:
3: \ This file is in the public domain. NO WARRANTY.
4:
1.2 ! anton 5: testing defer and friends
1.1 anton 6: require tester.fs
7:
8: { defer defer1 -> }
9: { : is-defer1 is defer1 ; -> }
10: { : action-defer1 action-of defer1 ; -> }
11: { ' * ' defer1 defer! -> }
12: { 2 3 defer1 -> 6 }
13: { ' defer1 defer@ -> ' * }
14: { action-of defer1 -> ' * }
15: { action-defer1 -> ' * }
16: { ' + is defer1 -> }
17: { 1 2 defer1 -> 3 }
18: { ' defer1 defer@ -> ' + }
19: { action-of defer1 -> ' + }
20: { action-defer1 -> ' + }
21: { ' - is-defer1 -> }
22: { 1 2 defer1 -> -1 }
23: { ' defer1 defer@ -> ' - }
24: { action-of defer1 -> ' - }
25: { action-defer1 -> ' - }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>