[racket] Typo in Section 17.8 Example?

[Michael Situ]

Hi,

I think I found a typo in the example from section 17.8 and wanted to bring
it to the authors' attention:

(define (web=? a-wp another-wp)
   (cond
      [(empty? a-wp) (empty? another-wp)]
      [(symbol? (first a-wp))
         (and (and (cons? another-wp) (symbol? (first another-wp)))
                  (and (symbol=? (first a-wp) (first another-wp))
                           (web=? (rest a-wp) (rest another-wp))))]
      [else
         (and (and (cons? another-wp) (*list?* (first another-wp)))
                  (and (web=? (first a-wp) (first another-wp))
                     (web=? (rest a-wp) (rest another-wp))))]))

should the *list?* function call be *cons?* instead?

Thanks,
Mike

____________________
  Racket Users list:
  http://lists.racket-lang.org/users