Some scheme

struct.scm

(define-syntax define-maker
  (lambda (stx)
    (syntax-case stx ()
      ((_ name)
       #`(define
	   #,(datum->syntax
	      #'name
	      (string->symbol
	       (string-append
		"make-"
		(symbol->string
		 (syntax->datum #'name)))))
	   (lambda () (display "hello!")))))))

(define-maker bob)

(make-bob)

15:25 <ijp> codemac: basically, rather than deal with symbols,
            macros deal with syntax objects which carry around some
            extra information (source location, lexical
            environment, etc.)
15:25 <ijp> syntax->datum strips it, datum->syntax adds it
15:26 <ijp> the first argument to datum->syntax is an identifier
            whose information to use for the datum
15:26 <ijp> so (datum->syntax #'name (string->symbol ...)) here
15:26 *** phant0mas QUIT Ping timeout: 258 seconds
15:27 <ijp> we should add an identifier-append, or an
            identifier-format or something
15:27 <codemac> that would be neat!
15:28 <ijp> everyone has probably written their own