changeset 226 | 1ef6bd84451f |
parent 225 | 3250eeca6813 |
child 228 | 786b19dd5284 |
--- a/etng-r2/boot.tng Thu Jan 22 16:09:54 2009 +0000 +++ b/etng-r2/boot.tng Thu Jan 22 16:10:05 2009 +0000 @@ -35,6 +35,8 @@ secondMsg -> :messageAccumulator {receiver -> firstSender receiver secondMsg}; ]; +define <> = < >; + define false = '%assemble' () { .scheme -> (not (quote nonfalse)) }; define true = false.not;