| … | … | @@ -36,7 +36,7 @@ |
| 36 | 36 | ; |
| 37 | 37 | (define (get-pair L-ATOM R-ATOM) |
| 38 | 38 | (define maybe-list (cog-link 'ListLink L-ATOM R-ATOM)) |
| 39 | | (if (null? maybe-list) '() |
| 39 | (if (not maybe-list) '() |
| 40 | 40 | (cog-link 'EvaluationLink (Predicate "foo") maybe-list))) |
| 41 | 41 | |
| 42 | 42 | ; Return the observed count for the pair PAIR. |
| … | … | @@ -47,7 +47,7 @@ |
| 47 | 47 | ; exists, else return zero. |
| 48 | 48 | (define (get-pair-count L-ATOM R-ATOM) |
| 49 | 49 | (define stats-atom (get-pair L-ATOM R-ATOM)) |
| 50 | | (if (null? stats-atom) 0 (get-count stats-atom))) |
| 50 | (if (not stats-atom) 0 (get-count stats-atom))) |
| 51 | 51 | |
| 52 | 52 | ; Return the atom holding the count, creating it if it does |
| 53 | 53 | ; not yet exist. Returns the same structure as the 'item-pair |