Unless I'm being stupid at this hour, I think you've found a bug: either
it should work as you originally expected, or it should raise an error
to complain about an internal "define" referencing itself like that and
ignoring the pre-existing binding from the argument. Note that, if you
rename the internal binding to "color2" to reflect what you expected, it
works.
(define (make-color color)
(define color2 color)
color2)
Just between you and me, I never use internal "define". I came from
RnRS, where "define" was only used at top level, and top level is
fraught with witchcraft. "let", "let*", "let-values", and "let*-values"
are more straightforward, overall, IMHO.
Veer wrote at 07/10/2011 01:41 AM:
(define (make-color color)
(define color color)
color)
(make-color 'red) ;; => #<undefined>
--
http://www.neilvandyke.org/
_________________________________________________
For list-related administrative tasks:
http://lists.racket-lang.org/listinfo/users
