define & string-append

Took me a lot of time to figure out how to do it right. What I want do is write a defstruct ala fixnum using only r5rs. Here is what I have so far:

(define-syntax hb
    (syntax-rules ()
      ((hb x y) (eval `(define ,(string->symbol (string-append "hose" (symbol->string `x))) y)))))

I think there is a another better, shorter way to do this, but for now it will do.

Learning to use xemacs is not as hard as most people say, at least not if you have a vi(m) to emacs command chart