Merge pull request opencog#10 from ngeiswei/merge-opencog-to-singnet

Merge opencog -> singnet
ngeiswei · Aug 12, 2021 · 2f7ffe1 · 2f7ffe1
2 parents fc1e9e0 + 17c4f5a
commit 2f7ffe1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/atomspace/AtomSpaceBenchmark.cc b/atomspace/AtomSpaceBenchmark.cc
@@ -985,7 +985,7 @@ timepair_t AtomSpaceBenchmark::bm_rmAtom()
             for (unsigned int j=0; j<Nloops; j++) {
                 std::string bar = symb + std::to_string(i*Nloops + j);
                 guile_define(bar, h);
-                ss << "(cog-delete-recursive " << bar << ")\n";
+                ss << "(cog-extract-recursive! " << bar << ")\n";
                 h = getRandomHandle();
                 // XXX FIXME --- this may have trouble finding
                 // anything if Nloops is bigger than the number

diff --git a/query-loop/bio-loop.scm b/query-loop/bio-loop.scm
@@ -88,7 +88,7 @@
 				;; (format #t "Ran triangle ~A in ~6f seconds; got ~A results\n"
 				;; 	gene-name (gene-secs) rlen)
 				(display ".")
-				(cog-delete result)
+				(cog-extract! result)
 				(cons gene-name rlen)
 			)
 			gene-list))
@@ -135,7 +135,7 @@
 				; (format #t "Ran path ~A in ~6f seconds; got ~A results\n"
 				; 	(cog-name pathway) (path-secs) rlen)
 				(display ".")
-				(cog-delete result)
+				(cog-extract! result)
 				(cons (cog-name pathway) rlen)
 			)
 			pathways))
@@ -163,7 +163,7 @@
 				; Perform the search
 				(define path-set (cog-execute! query))
 				(define pathways (cog-outgoing-set path-set))
-				(cog-delete path-set)
+				(cog-extract! path-set)
 				pathways
 			)
 			gene-list)))