Differences From Artifact [454c7b7367a1305b]:
- File
polemy/parse.d
- 2010-11-26 12:22:18 - part of checkin [23fb1b4a0e] on branch trunk - jikken before non-memo macro (user: kinaba) [annotate]
To Artifact [de23904b83613a4d]:
- File
polemy/parse.d
- 2010-11-27 14:23:54 - part of checkin [005474ba5b] on branch trunk - changed: not to lift _|_ (user: kinaba) [annotate]
380 foreach(p; path) 380 foreach(p; path)
381 e = new App(pos, new Var(pos, "."), e, new Str(p 381 e = new App(pos, new Var(pos, "."), e, new Str(p
382 return e; 382 return e;
383 } 383 }
384 private AST has(AST e, string k) { 384 private AST has(AST e, string k) {
385 auto pos = currentPosition(); 385 auto pos = currentPosition();
386 return opAndAnd( 386 return opAndAnd(
387 new App(pos, new Var(pos, "_istable"), e), | 387 new App(pos, new Var(pos, "_istbl"), e),
388 new App(pos, new Var(pos, ".?"), e, new Str(pos, 388 new App(pos, new Var(pos, ".?"), e, new Str(pos,
389 ); 389 );
390 } 390 }
391 private AST opAndAnd(AST a, AST b) { 391 private AST opAndAnd(AST a, AST b) {
392 if( a is null ) return b; 392 if( a is null ) return b;
393 if( b is null ) return a; 393 if( b is null ) return a;
394 auto pos = currentPosition(); 394 auto pos = currentPosition();