File:  [gforth] / gforth / test / deferred.fs
Revision 1.2: download - view: text, annotated - select for diffs
Wed Sep 1 16:52:12 2010 UTC (13 years, 6 months ago) by anton
Branches: MAIN
CVS tags: HEAD
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 -> ' - }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>