Return to deferred.fs CVS log

Up to [gforth] / gforth / test

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 -> ' - }