added system.onRaise to support a condition system

This commit is contained in:
Araq 2012-11-05 08:36:44 +01:00
commit 865d9cc6e6
7 changed files with 100 additions and 36 deletions

View file

@ -157,10 +157,8 @@ proc trackPragmaStmt(tracked: PEffects, n: PNode) =
var it = n.sons[i]
if whichPragma(it) == wEffects:
# list the computed effects up to here:
pushInfoContext(n.info)
listEffects(tracked)
popInfoContext()
proc raisesSpec*(n: PNode): PNode =
for i in countup(0, sonsLen(n) - 1):
var it = n.sons[i]