| … | … | @@ -144,7 +144,7 @@ |
| 144 | 144 | |
| 145 | 145 | (define deep-delete "test deep delete") |
| 146 | 146 | (test-begin deep-delete) |
| 147 | | (test-deep cog-delete!) |
| 147 | (test-deep (lambda (x) (cog-delete! x) (cog-extract! x))) |
| 148 | 148 | (test-end deep-delete) |
| 149 | 149 | |
| 150 | 150 | (whack "/tmp/cog-rocks-frame-delete-test") |
| … | … | @@ -252,7 +252,7 @@ |
| 252 | 252 | |
| 253 | 253 | (define deep-change-delete "test deep change-delete") |
| 254 | 254 | (test-begin deep-change-delete) |
| 255 | | (test-deep-change cog-delete!) |
| 255 | (test-deep-change (lambda (x) (cog-delete! x) (cog-extract! x))) |
| 256 | 256 | (test-end deep-change-delete) |
| 257 | 257 | |
| 258 | 258 | (whack "/tmp/cog-rocks-frame-delete-test") |
| … | … | @@ -370,7 +370,7 @@ |
| 370 | 370 | (whack "/tmp/cog-rocks-frame-delete-test") |
| 371 | 371 | (define deep-link-delete "test deep link-delete") |
| 372 | 372 | (test-begin deep-link-delete) |
| 373 | | (test-deep-link cog-delete-recursive!) |
| 373 | (test-deep-link (lambda (x) (cog-delete-recursive! x) (cog-extract-recursive! x))) |
| 374 | 374 | (test-end deep-link-delete) |
| 375 | 375 | |
| 376 | 376 | ; =================================================================== |