[racket] strange behavior

Let me suggest this: 

#lang racket

(define (main-of-your-program)
  (displayln (my-gensym))
  (displayln (my-gensym)))

(define my-gensym 0)

;; --- test: 
(require (only-in mzscheme fluid-let))
(define (generate-a-predictable-symbol) 'a0)
(fluid-let ((my-gensym generate-a-predictable-symbol))
  (main-of-your-program))
my-gensym

The above used to work without the 'my-' prefix BUT we decided to make imports constant. 

-- Matthias





On Jan 31, 2012, at 7:38 AM, zermelo wrote:

> I have the following problem. I want to replace procedure gensym with a 
> mock
> to test a piece of software with predictable gensym values. When this is 
> done, 
> I restore the old gensym.
> Thus I wrote this code in racket:
> 
> (define old-gensym gensym)
> (define gensym <a mock ...>)
> ...test...
> (define gensym old-gensym)
> 
> but when I run it, I get "reference to an identifier before its 
> definition: gensym".
> On the other hand, if I write the same code in the interaction window, 
> everything works as expected.
> 
> Is this a bug?
> 
> ____________________
>  Racket Users list:
>  http://lists.racket-lang.org/users