[Chicken-janitors] #705: Allowing EVAL to evaluate lists with a procedure in the car

[Chicken Trac]

#705: Allowing EVAL to evaluate lists with a procedure in the car
----------------------------+-----------------------------------------------
 Reporter:  johnwcowan      |       Owner:       
     Type:  defect          |      Status:  new  
 Priority:  minor           |   Milestone:  4.8.0
Component:  core libraries  |     Version:  4.7.x
 Keywords:                  |  
----------------------------+-----------------------------------------------
 The following does not work and is not required by R5RS to work, but I see
 no reason that it ''shouldn't'' work:

 {{{

 Version 4.7.4 (rev 09df24b)
 windows-cygwin-x86 [ manyargs dload ptables ]
 compiled 2011-09-21 on LNGNYCL-FDB00M1 (CYGWIN_NT-5.1)

 #;1> (define e (interaction-environment))
 #;2> (define x '(cons 1 2))
 #;3> (eval x e)
 (1 . 2)
 #;4> (set-car! x cons)
 #;5> x
 (#<procedure (cons x281 y282)> 1 2)
 #;6> (eval x e)

 Error: illegal non-atomic object: #<procedure (cons x281 y282)>

         Call history:

         <syntax>          (eval x e)
         <eval>    (eval x e)
         <syntax>          (#<procedure (cons x281 y282)> 1 2)   <--

 }}}

-- 
Ticket URL: <https://bugs.call-cc.org/ticket/705>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.