Return to deferred.fs CVS log | Up to [gforth] / gforth / test |
added "TESTING" lines to many test files Now use (THROW1) primitive
1: \ test DEFER and friends 2: 3: \ This file is in the public domain. NO WARRANTY. 4: 5: testing defer and friends 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 -> ' - }