[Chicken-janitors] #1294: define-record-printer messes with internal defines

[Chicken Trac]

#1294: define-record-printer messes with internal defines
----------------------+--------------------
 Reporter:  sjamaan   |      Owner:
     Type:  defect    |     Status:  new
 Priority:  major     |  Milestone:  4.12.0
Component:  expander  |    Version:  4.11.0
 Keywords:            |
----------------------+--------------------
 As pointed out by russelw on IRC, the following program fails to compile
 (and doesn't work in the interpreter, either):

 {{{
 #!scm
 (module main ()
  (import chicken)
  (import scheme)

  (define (h)
   (define (f)
    (g))

   (define-record-printer (foo x port)
    #f)

   (define (g)
    (f))))
 }}}

 This is probably similar to #1274.

--
Ticket URL: <http://bugs.call-cc.org/ticket/1294>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.