[Sawfish] hash table and concat

[fuchur]

Hi,

I can't work with hash tables and concat. In sawfish-client i type:

(require 'rep.data.tables)
(define test-cache (make-weak-table eq-hash eq))
(define (cache my-name)
  (or
   (table-ref test-cache my-name)
   (table-set test-cache my-name 'image)))

(cache 'first-name)
image

if i now type:
(table-ref test-cache 'first-name)
image

it's returns image like expected.




If i use concat like this:

(require 'rep.data.tables)
(define test-cache (make-weak-table eq-hash eq))
(define (cache my-name)
  (or
   (table-ref test-cache my-name)
   (table-set test-cache my-name 'image)))

(cache (concat "first-" "name"))
image

if i now type:
(table-ref test-cache '"first-name")
()
it's returns ().


Anyone a idea what is wrong?

Thank you.

-- 
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0

signature.asc
Description: PGP signature