; In Gauche.
; But it's ugly.  Isn't there smarter solution?

(define-syntax define!
  (syntax-rules ()
    [(_ name)
     (let1 name!s (string-append (symbol->string 'name) "!")
       (map (cut eval <> (current-module))
            `((define ,(string->symbol name!s) ,name!s)
              (define name (symbol->string 'name)))))]))