Generalized pattern does not work in GHOST

[stellarspot]

Run the sample:

(use-modules
 (opencog)
 (opencog nlp)
 (opencog nlp relex2logic)
 (opencog ghost)
 (opencog ghost procedures)
 (opencog exec))

(ghost-parse "
r: (where do _* work) '_0 work in SomeCompany.
")

; Test Ghost
(test-ghost "Where do I work?")
(test-ghost "Where does Alice works?")

The output is (i work in SomeCompany.)
The rule "(where do _* work)" does not match sentence "Where does Alice works?"

[leungmanhin]

Should be fixed by #3485

[stellarspot]

I see it works with the fix #3485 if test-ghost is used:

(use-modules
 (opencog)
 (opencog nlp)
 (opencog nlp relex2logic)
 (opencog openpsi)
 (opencog ghost)
 (opencog ghost procedures)

 (opencog exec)
)

(ghost-parse "
r: (where do _* work) '_0 work in SomeCompany.
  ^keep()
")

; Disable the ECAN related config for now
(ghost-set-sti-weight 0)
(ghost-af-only #f)

(ghost-run)

(test-ghost "Where does Alice work?")

(ghost-halt)

The result is (Alice work in SomeCompany.)

But the same example does not work if ghost instead of test-ghost is used:

(use-modules
 (opencog)
 (opencog nlp)
 (opencog nlp relex2logic)
 (opencog openpsi)
 (opencog ghost)
 (opencog ghost procedures)

 (opencog exec)
)

(ghost-parse "
r: (where do _* work) '_0 work in SomeCompany.
  ^keep()
")

; Disable the ECAN related config for now
(ghost-set-sti-weight 0)
(ghost-af-only #f)

(ghost-run)

;(test-ghost "Where does Alice work?")
(ghost "Where does Alice work?")

(ghost-halt)

Nothing is printed.

[leungmanhin]

@stellarspot It works, but I believe you are putting all of the above in a file and just load it in the Guile shell, that means you are executing ghost-halt almost immediately after sending the input, so it didn't have the chance to process the input before halting the loop.

[stellarspot]

I see. Thank you. If I add the (sleep 1) before the ghost-halt it works.

[stellarspot]

There is one more example where pattern r: (* work in _*) '_0 is a great company! does not generalize to Alice works in HardMegaCorp.. So it works with I work in and not with Alice works in:

(use-modules
 (opencog)
 (opencog nlp)
 (opencog nlp relex2logic)
 (opencog openpsi)
 (opencog ghost)
 (opencog ghost procedures)

 (opencog exec)
)

(ghost-parse "
r: (* work in _*) '_0 is a great company!
  ^keep()
")

; Disable the ECAN related config for now
(ghost-set-sti-weight 0)
(ghost-af-only #f)

(ghost-run)

(ghost "I work in SoftMegaCorp.")
(sleep 1)
(ghost "Alice works in HardMegaCorp.")
(sleep 1)
(ghost-halt)