| … | … | @@ -0,0 +1,14 @@ |
| 1 | ; | |
| 2 | ; count.scm | |
| 3 | ; Attempt to count things. | |
| 4 | (use-modules (opencog)) | |
| 5 | ||
| 6 | (define get-all-types | |
| 7 | (Query | |
| 8 | (Variable "$atom") ; vardecl | |
| 9 | (Variable "$atom") ; match anything | |
| 10 | (TypeOf (Variable "$atom")) ; rewrite | |
| 11 | )) | |
| 12 | ||
| 13 | (cog-execute! get-all-types) | |
| 14 |