| … | … | @@ -0,0 +1,14 @@ |
| 1 | ||
| 2 | (use-modules (opencog)) | |
| 3 | (AtomSpace (cog-atomspace)) ;; XXX not pure Atomese | |
| 4 | (AtomSpace (AtomSpaceOf (Concept "x"))) ;; Yes, creates chold, OK. | |
| 5 | ||
| 6 | ; Create just one child atomspace, stash it where we can find it. | |
| 7 | (cog-execute! (SetValue | |
| 8 | (AnchorNode "observer") | |
| 9 | (Predicate "*-space-*") | |
| 10 | (AtomSpace (AtomSpaceOf (AnchorNode "observer"))))) | |
| 11 | ||
| 12 | (cog-execute! (ValueOf (AnchorNode "observer") (Predicate "*-space-*"))) | |
| 13 | (cog-new-atom (Concept "x") (... some atomspace)) | |
| 14 |