| … | … | @@ -157,8 +157,8 @@ |
| 157 | 157 | (cog-value->list (cog-value get-tail metadata)) |
| 158 | 158 | |
| 159 | 159 | ; Print the time-string... a bit verbose, but whatever. |
| 160 | (strftime "%c" (localtime (inexact->exact (car | |
| 161 | (cog-value->list (cog-value get-tail metadata)))))) | |
| 160 | (strftime "%c" (localtime (inexact->exact | |
| 161 | (cog-value-ref get-tail metadata 0)))) | |
| 162 | 162 | |
| 163 | 163 | ; Again, the format of the metadata is subject to change. |
| 164 | 164 |