1\  Common code (insert obligatory sneeze here)
2\      for Nested "Constant" Unconcluded Conditionals test
3
4\  Updated Wed, 08 Mar 2006 at 16:12 PST by David L. Paktor
5
6\  File that FLOADs this has already put TRUE or FALSE on the stack.
7
8f[  constant  poopsalah? f]
9
10fcode-version2
11
12: whatziz
13    ." This is the "
14    f[ poopsalah? [if] f] ." True "  f[  [else]  f] ." False"  f[  [then]  f]
15    ."  side of the test." cr
16;
17headers
18
19fload PooPsalah.fth
20
21: whoozis  whatziz  ;
22
23fcode-end
24