| … | … | @@ -406,7 +406,7 @@ |
| 406 | 406 | (put-string outport just-one-gml) |
| 407 | 407 | (close outport)) |
| 408 | 408 | |
| 409 | (format #t "Found a network of size ~D\n" (cog-arity (gar just-one))) | |
| 409 | (format #t "Found a network of ~D individuals\n" (cog-arity (gar just-one))) | |
| 410 | 410 | |
| 411 | 411 | ; --------------------------------------------------------------------- |
| 412 | 412 | ; A handy utility. We need this for the rest of the demo. |