Mercurial > repos > tabletprog
annotate modules/true.tp @ 105:35006a6e1c47
Fixed more editor coderot and improved syntax/selection coloring a bit.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 11 Apr 2013 09:16:35 -0700 |
parents | 59a94f3ad56f |
children | 1417f13f219c |
rev | line source |
---|---|
68
3a169ebb3224
Change strategy for handling true and false to avoid some initialization order problems and improve performance. Add support for negative integer literals. Update samples to reflect true/false change.
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 #{ |
70
0efd25a4958a
Update true and false with improved versions from ICFP contest project
Mike Pavone <pavone@retrodev.com>
parents:
68
diff
changeset
|
2 if <- :self trueblock { |
0efd25a4958a
Update true and false with improved versions from ICFP contest project
Mike Pavone <pavone@retrodev.com>
parents:
68
diff
changeset
|
3 trueblock: |
0efd25a4958a
Update true and false with improved versions from ICFP contest project
Mike Pavone <pavone@retrodev.com>
parents:
68
diff
changeset
|
4 } |
97
59a94f3ad56f
Added short-circuit && and || operators
Mike Pavone <pavone@retrodev.com>
parents:
71
diff
changeset
|
5 ifnot <- :self falseblock { |
59a94f3ad56f
Added short-circuit && and || operators
Mike Pavone <pavone@retrodev.com>
parents:
71
diff
changeset
|
6 self |
59a94f3ad56f
Added short-circuit && and || operators
Mike Pavone <pavone@retrodev.com>
parents:
71
diff
changeset
|
7 } |
68
3a169ebb3224
Change strategy for handling true and false to avoid some initialization order problems and improve performance. Add support for negative integer literals. Update samples to reflect true/false change.
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 if:else <- :self trueblock :elseblock { |
3a169ebb3224
Change strategy for handling true and false to avoid some initialization order problems and improve performance. Add support for negative integer literals. Update samples to reflect true/false change.
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 trueblock: |
3a169ebb3224
Change strategy for handling true and false to avoid some initialization order problems and improve performance. Add support for negative integer literals. Update samples to reflect true/false change.
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 } |
71
01b6f8204cdf
added 'not' message to 'true' and 'false' modules
William Morgan <bill@mrgn.org>
parents:
70
diff
changeset
|
11 not <- { |
01b6f8204cdf
added 'not' message to 'true' and 'false' modules
William Morgan <bill@mrgn.org>
parents:
70
diff
changeset
|
12 false |
01b6f8204cdf
added 'not' message to 'true' and 'false' modules
William Morgan <bill@mrgn.org>
parents:
70
diff
changeset
|
13 } |
68
3a169ebb3224
Change strategy for handling true and false to avoid some initialization order problems and improve performance. Add support for negative integer literals. Update samples to reflect true/false change.
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 } |