(define (make-empty-symtab)
  '())

(define (enter-symtab tab sym val)
  (cons (cons sym val) tab))

(define (locate-sym tab sym)
  (let ((p (assoc sym tab)))
    (and p (cdr p))))

;(define (make-empty-symtab)
;  (make-string-table))

;(define (set-symtab! tab sym val)
;  (table-set! tab sym val))

;(define (locate-sym tab sym)
;  (table-ref tab sym))