| … | … | @@ -174,6 +174,18 @@ |
| 174 | 174 | ; Sniff test. Does it work? |
| 175 | 175 | ; (cog-execute! counter) |
| 176 | 176 | |
| 177 | ; Create the anchor for the word bonds |
| 178 | (cog-execute! |
| 179 | (SetValue (Anchor "parse pipe") (Predicate "counted bonds") |
| 180 | (DontExec counter))) |
| 181 | |
| 182 | ; Anchor reference |
| 183 | (define counted-stream |
| 184 | (ValueOf (Anchor "parse pipe") (Predicate "counted bonds"))) |
| 185 | |
| 186 | ; Sniff test. Does it work? |
| 187 | ; (cog-execute! counted-stream) |
| 188 | |
| 177 | 189 | |
| 178 | 190 | ; -------------------------------------------------------- |
| 179 | 191 | ; The End! That's All, Folks! |