| … | … | @@ -32,6 +32,15 @@ |
| 32 | 32 | (FloatValueOf edge (Predicate "count")) |
| 33 | 33 | (FloatValueOf (Number 0 0 0)))))) |
| 34 | 34 | |
| 35 | (define (extract stuff) | |
| 36 | (Filter | |
| 37 | (Rule | |
| 38 | (Variable "$edge") | |
| 39 | ; (TypedVariable (Variable "$edge") (Type 'Edge)) | |
| 40 | (Variable "$edge") | |
| 41 | (incr-cnt (Variable "$edge"))) | |
| 42 | stuff)) | |
| 43 | ||
| 35 | 44 | (define parseli |
| 36 | 45 | (PureExecLink (LgParseBonds (Phrase PLAIN-TEXT) DICT NUML))) |
| 37 | 46 | (define filty |
| … | … | @@ -47,7 +56,7 @@ |
| 47 | 56 | (Type 'LinkValue) ; edge-list wrapper |
| 48 | 57 | (Glob "$x"))) ; all of the edges |
| 49 | 58 | ; Rewrite |
| 50 | (incr-cnt (Glob "$x")) | |
| 59 | (extract (Glob "$x")) | |
| 51 | 60 | ) |
| 52 | 61 | parseli)) |
| 53 | 62 |