Return to deferred.fs CVS log

Up to [gforth] / gforth / test

Annotation of gforth/test/deferred.fs, revision 1.1

1.1     ! anton       1: \ test DEFER and friends
        !             2: 
        !             3: \ This file is in the public domain. NO WARRANTY.
        !             4: 
        !             5: require tester.fs
        !             6: 
        !             7: { defer defer1 -> }
        !             8: { : is-defer1 is defer1 ; -> }
        !             9: { : action-defer1 action-of defer1 ; -> }
        !            10: { ' * ' defer1 defer! -> }
        !            11: { 2 3 defer1 -> 6 }
        !            12: { ' defer1 defer@ -> ' * }
        !            13: { action-of defer1 -> ' * }
        !            14: { action-defer1 -> ' * }
        !            15: { ' + is defer1 -> }
        !            16: { 1 2 defer1 -> 3 }
        !            17: { ' defer1 defer@ -> ' + }
        !            18: { action-of defer1 -> ' + }
        !            19: { action-defer1 -> ' + }
        !            20: { ' - is-defer1 -> }
        !            21: { 1 2 defer1 -> -1 }
        !            22: { ' defer1 defer@ -> ' - }
        !            23: { action-of defer1 -> ' - }
        !            24: { action-defer1 -> ' - }