;;; *********************************************************************
;;; Susan Fox
;;; December 27, 2000

;;; File:  retrieve.ss

;;; This file handles retrieval of cases from memory based on
;;; similarity

(if (not (top-level-bound? 'CASEMEM.SSLOADED))
    (load "casemem.ss"))

(define RETRIEVE.SSLOADED #t)


;;; *********************************************************************