File:  [gforth] / gforth / test / deferred.fs
Revision 1.2: download - view: text, annotated - select for diffs
Wed Sep 1 16:52:12 2010 UTC (7 years, 3 months ago) by anton
Branches: MAIN
CVS tags: HEAD
added "TESTING" lines to many test files
Now use (THROW1) primitive

\ test DEFER and friends

\ This file is in the public domain. NO WARRANTY.

testing defer and friends
require tester.fs

{ defer defer1 -> }
{ : is-defer1 is defer1 ; -> }
{ : action-defer1 action-of defer1 ; -> }
{ ' * ' defer1 defer! -> }
{ 2 3 defer1 -> 6 }
{ ' defer1 defer@ -> ' * }
{ action-of defer1 -> ' * }
{ action-defer1 -> ' * }
{ ' + is defer1 -> }
{ 1 2 defer1 -> 3 }
{ ' defer1 defer@ -> ' + }
{ action-of defer1 -> ' + }
{ action-defer1 -> ' + }
{ ' - is-defer1 -> }
{ 1 2 defer1 -> -1 }
{ ' defer1 defer@ -> ' - }
{ action-of defer1 -> ' - }
{ action-defer1 -> ' - }

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