| … | … | @@ -1,6 +1,7 @@ |
| 1 | 1 | |
| 2 | | (use-modules (opencog) (opencog nlp) (opencog nlp lg-parse)) |
| 3 | | (use-modules (opencog exec) (opencog persist)) |
| 2 | (use-modules (opencog) (opencog exec) (opencog persist)) |
| 3 | (use-modules (opencog nlp) (opencog nlp lg-parse)) |
| 4 | (use-modules (opencog sensory)) |
| 4 | 5 | (use-modules (srfi srfi-1)) |
| 5 | 6 | |
| 6 | 7 | ; Here's the design we want: |
| … | … | @@ -118,10 +119,11 @@ |
| 118 | 119 | (SetValue (Concept "foo") (Predicate "some place") |
| 119 | 120 | (FileRead "file:///tmp/demo.txt"))) |
| 120 | 121 | |
| 121 | | (cog-execute! |
| 122 | | (LgParseBonds |
| 123 | | (ValueOf (Concept "foo") (Predicate "some place")) |
| 124 | | DICT NUML)) |
| 122 | ; Wait ... |
| 123 | (define txt-stream-gen |
| 124 | (ValueOf (Concept "foo") (Predicate "some place"))) |
| 125 | |
| 126 | (cog-execute! (LgParseBonds txt-stream-gen DICT NUML)) |
| 125 | 127 | |
| 126 | 128 | ; (load "count-agent.scm") |
| 127 | 129 | ; (obs-txt text-blob) |