OverviewFilesCommitsIssuesDocsReleasesPeers

opencog-atomspace-rocks commits / fa6693c

Avoid using the scheme car and ref the list directly
fa6693cdc1ae16abc26e2f3f96796bf6d008cc21
by Linas Vepstas <linasvepstas@gmail.com> · 2026-01-18T05:23:43.000Z

Changed files (16) +26 -26

tests/persist/rocks/fetch-frame-test.scm +3 -3
……@@ -76,7 +76,7 @@
7676 ; Load everything.
7777 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-fetch-frame-test"))
7878 (cog-set-value! storage (*-open-*))
79 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
79 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
8080 (cog-set-atomspace! top-space)
8181 (cog-set-value! storage (*-fetch-atom-*) (LinkValue top-space (Concept "foo")))
8282 (cog-set-value! storage (*-close-*))
……@@ -127,7 +127,7 @@
127127 ; Load everything.
128128 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-fetch-frame-test"))
129129 (cog-set-value! storage (*-open-*))
130 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
130 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
131131 (cog-set-atomspace! top-space)
132132 (cog-set-value! storage (*-load-atoms-of-type-*) (Type 'Concept))
133133 (cog-set-value! storage (*-close-*))
……@@ -182,7 +182,7 @@
182182 ; Load incoming set of just one atom.
183183 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-fetch-frame-test"))
184184 (cog-set-value! storage (*-open-*))
185 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
185 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
186186 (cog-set-atomspace! top-space)
187187 (cog-set-value! storage (*-fetch-incoming-set-*) (LinkValue top-space (Concept "foo")))
188188
tests/persist/rocks/frame-delete-test.scm +4 -4
……@@ -99,9 +99,9 @@
9999 ; There are two frames at the top, and we want the newer one.
100100 ; The second one is the root space; it doesn't have the stack.
101101 ; This is awkward. I don't entirely like it. For now, it works.
102 (define the-frames (cog-value->list (cog-value storage (*-load-frames-*))))
102 ; (define the-frames (cog-value->list (cog-value storage (*-load-frames-*))))
103103 ; (format #t "The frames are ~A\n" the-frames)
104 (define top-space (car the-frames))
104 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
105105
106106 ; Load all atoms in all frames
107107 (cog-set-atomspace! top-space)
……@@ -207,7 +207,7 @@
207207 (cog-set-value! storage (*-open-*))
208208
209209 ; Load all of the AtomSpace Frames.
210 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
210 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
211211
212212 ; Load all atoms in all frames
213213 (cog-set-atomspace! top-space)
……@@ -320,7 +320,7 @@
320320 (cog-set-value! storage (*-open-*))
321321
322322 ; Load all of the AtomSpace Frames.
323 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
323 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
324324
325325 ; Load all atoms in all frames
326326 (cog-set-atomspace! top-space)
tests/persist/rocks/frame-links-test.scm +1 -1
……@@ -93,7 +93,7 @@
9393 ; Load everything.
9494 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-frame-links-test"))
9595 (cog-set-value! storage (*-open-*))
96 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
96 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
9797 (cog-set-atomspace! top-space)
9898 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
9999 (cog-set-value! storage (*-close-*))
tests/persist/rocks/frame-progressive-test.scm +1 -1
……@@ -146,7 +146,7 @@
146146 (cog-set-value! storage (*-open-*))
147147
148148 ; Load all of the AtomSpace Frames.
149 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
149 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
150150
151151 ; Load all atoms in all frames
152152 (cog-set-atomspace! top-space)
tests/persist/rocks/frame-values-test.scm +1 -1
……@@ -95,7 +95,7 @@
9595 ; Load everything.
9696 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-frame-values-test"))
9797 (cog-set-value! storage (*-open-*))
98 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
98 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
9999 (cog-set-atomspace! top-space)
100100 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
101101 (cog-set-value! storage (*-close-*))
tests/persist/rocks/promote-test.scm +3 -3
……@@ -64,7 +64,7 @@
6464 (cog-set-value! storage (*-open-*))
6565 ; (cog-rocks-stats storage)
6666 ; (cog-rocks-print storage "")
67 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
67 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
6868 (cog-set-atomspace! top-space)
6969 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
7070 (cog-set-value! storage (*-close-*))
……@@ -98,7 +98,7 @@
9898 (cog-set-value! storage (*-open-*))
9999 ; (cog-rocks-stats storage)
100100 ; (cog-rocks-print storage "")
101 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
101 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
102102 (cog-set-value! storage (*-delete-frame-*) top-space)
103103 (cog-set-value! storage (*-close-*))
104104)
……@@ -114,7 +114,7 @@
114114 (cog-set-value! storage (*-open-*))
115115 ; (cog-rocks-stats storage)
116116 ; (cog-rocks-print storage "")
117 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
117 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
118118 (cog-set-atomspace! top-space)
119119 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
120120 (cog-set-value! storage (*-close-*))
tests/persist/rocks/query-storage-test.scm +1 -1
……@@ -181,7 +181,7 @@
181181 (equal? (cog-type meta-value) 'FloatValue))
182182
183183 ; Timestamp should be a reasonable Unix time (> year 2020)
184 (define timestamp (car (cog-value->list meta-value)))
184 (define timestamp (cog-value-ref meta-value 0))
185185 (test-assert "timestamp-reasonable" (> timestamp 1577836800))
186186
187187 (cog-set-value! storage (*-close-*))
tests/persist/rocks/space-delete-test.scm +4 -4
……@@ -65,7 +65,7 @@
6565 (cog-set-value! storage (*-open-*))
6666 ; (cog-rocks-print storage "")
6767
68 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
68 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
6969 (cog-set-value! storage (*-delete-frame-*) top-space)
7070 (cog-set-value! storage (*-close-*))
7171)
……@@ -102,7 +102,7 @@
102102 ; Load everything.
103103 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-space-delete-test"))
104104 (cog-set-value! storage (*-open-*))
105 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
105 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
106106 (cog-set-atomspace! top-space)
107107 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
108108 (cog-set-value! storage (*-close-*))
……@@ -114,7 +114,7 @@
114114 ; Load everything. Again.
115115 (cog-set-atomspace! (AtomSpace))
116116 (cog-set-value! storage (*-open-*))
117 (set! top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
117 (set! top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
118118 (cog-set-atomspace! top-space)
119119 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
120120 (cog-set-value! storage (*-close-*))
……@@ -126,7 +126,7 @@
126126 ; Load everything. Again.
127127 (cog-set-atomspace! (AtomSpace))
128128 (cog-set-value! storage (*-open-*))
129 (set! top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
129 (set! top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
130130 (cog-set-atomspace! top-space)
131131 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
132132 (cog-set-value! storage (*-close-*))
tests/persist/rocks/space-diamond-test.scm +1 -1
……@@ -68,7 +68,7 @@
6868 (cog-set-value! storage (*-open-*))
6969
7070 ; Load all of the AtomSpaces.
71 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
71 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
7272 (cog-set-atomspace! top-space)
7373
7474 ; Now load the AtomSpace itself
tests/persist/rocks/space-frame-test.scm +1 -1
……@@ -69,7 +69,7 @@
6969 ; Load everything.
7070 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-space-frame-test"))
7171 (cog-set-value! storage (*-open-*))
72 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
72 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
7373 (cog-set-atomspace! top-space)
7474 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
7575 (cog-set-value! storage (*-close-*))
tests/persist/rocks/space-wye-test.scm +1 -1
……@@ -63,7 +63,7 @@
6363 (cog-set-value! storage (*-open-*))
6464
6565 ; Load all of the AtomSpaces.
66 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
66 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
6767 (cog-set-atomspace! top-space)
6868
6969 ; Now load the AtomSpace itself
tests/persist/rocks/value-frame-test.scm +1 -1
……@@ -67,7 +67,7 @@
6767 ; Load everything.
6868 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-value-frame-test"))
6969 (cog-set-value! storage (*-open-*))
70 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
70 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
7171 (cog-set-atomspace! top-space)
7272 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
7373 ; (cog-rocks-stats storage)
tests/persist/rocks/value-readd-test.scm +1 -1
……@@ -76,7 +76,7 @@
7676 ; Load everything.
7777 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-value-readd-test"))
7878 (cog-set-value! storage (*-open-*))
79 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
79 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
8080 (cog-set-atomspace! top-space)
8181 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
8282 ; (cog-rocks-stats storage)
tests/persist/rocks/value-resave-test.scm +1 -1
……@@ -76,7 +76,7 @@
7676 ; Load everything.
7777 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-value-resave-test"))
7878 (cog-set-value! storage (*-open-*))
79 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
79 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
8080 (cog-set-atomspace! top-space)
8181 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
8282 ; (cog-rocks-stats storage)
tests/persist/rocks/value-reval-test.scm +1 -1
……@@ -78,7 +78,7 @@
7878 ; Load everything.
7979 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-value-reval-test"))
8080 (cog-set-value! storage (*-open-*))
81 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
81 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
8282 (cog-set-atomspace! top-space)
8383 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
8484 ; (cog-rocks-stats storage)
tests/persist/rocks/valueless-test.scm +1 -1
……@@ -80,7 +80,7 @@
8080 ; Load everything.
8181 (define storage (RocksStorageNode "rocks:///tmp/cog-rocks-valueless-test"))
8282 (cog-set-value! storage (*-open-*))
83 (define top-space (car (cog-value->list (cog-value storage (*-load-frames-*)))))
83 (define top-space (cog-value-ref (cog-value storage (*-load-frames-*)) 0))
8484 (cog-set-atomspace! top-space)
8585 (cog-set-value! storage (*-load-atomspace-*) (cog-atomspace))
8686 (cog-set-value! storage (*-close-*))