| … | … | @@ -222,15 +222,6 @@ |
| 222 | 222 | `fetch-value` to get only one Value. |
| 223 | 223 | `store-atom` to store all Values. |
| 224 | 224 | " |
| 225 | | ; Need to use cog-set-value! here, instead of cog-set-value! in order |
| 226 | | ; to get correct behavior for working with frames. This is due to |
| 227 | | ; an unpatched bug: calling cog-set-value! in some frame where |
| 228 | | ; the storage node is only in a lower frame causes a COW of that |
| 229 | | ; StorageNode into that frame. But the COW is a copy, and that |
| 230 | | ; copy isn't actually open. So cog-set-value! just bypasses the COW |
| 231 | | ; and everything works. I'm not sure what the best long-term fix |
| 232 | | ; for this is. At any rate, XXX FIXME. |
| 233 | | ; |
| 234 | 225 | ; For backwards compat, throw a C++ exception if not open. |
| 235 | 226 | (if STORAGE |
| 236 | 227 | (cog-set-value! STORAGE (*-fetch-atom-*) |
| … | … | @@ -403,15 +394,6 @@ |
| 403 | 394 | `store-value` to store just one Value. |
| 404 | 395 | `fetch-atom` to fetch all Values on an Atom. |
| 405 | 396 | " |
| 406 | | ; Need to use cog-set-value! here, instead of cog-set-value! in order |
| 407 | | ; to get correct behavior for working with frames. This is due to |
| 408 | | ; an unpatched bug: calling cog-set-value! in some frame where |
| 409 | | ; the storage node is only in a lower frame causes a COW of that |
| 410 | | ; StorageNode into that frame. But the COW is a copy, and that |
| 411 | | ; copy isn't actually open. So cog-set-value! just bypasses the COW |
| 412 | | ; and everything works. I'm not sure what the best long-term fix |
| 413 | | ; for this is. At any rate, XXX FIXME. |
| 414 | | ; |
| 415 | 397 | ; For backwards compat, throw a C++ exception if not open. |
| 416 | 398 | (if STORAGE |
| 417 | 399 | (cog-set-value! STORAGE (*-store-atom-*) ATOM) |