[Chicken-janitors] #880: bug with assume

[Chicken Trac]

#880: bug with assume
---------------------+------------------------------------------------------
 Reporter:  megane   |       Owner:       
     Type:  defect   |      Status:  new  
 Priority:  major    |   Milestone:  4.8.0
Component:  unknown  |     Version:  4.7.x
 Keywords:           |  
---------------------+------------------------------------------------------
 Here's the bug and as an attachment a patch by Peter Bex

 {{{
 (let [(l (list 1 2 3))]
   (assume
    ((l list))
    (print l)))
 ;; Error: during expansion of (assume ...) - call of non-procedure:
 #<transformer>

 ;;      Call history:

 ;;      compiler.scm:410: find-id
 ;;      compiler.scm:411: ##sys#get
 ;;      compiler.scm:463: ##sys#get
 ;;      compiler.scm:464: ##sys#alias-global-hook
 ;;      compiler.scm:401: g1619
 ;;      compiler.scm:1272: walk
 ;;      compiler.scm:498: constant?
 ;;      compiler.scm:401: g1619
 ;;      compiler.scm:1272: walk
 ;;      compiler.scm:498: constant?
 ;;      compiler.scm:401: g1619
 ;;      compiler.scm:1272: walk
 ;;      compiler.scm:498: constant?
 ;;      compiler.scm:1246: ##sys#hash-table-ref
 ;;      compiler.scm:1248: ##sys#hash-table-set!
 ;;      compiler.scm:615: ##sys#canonicalize-body               <--


 }}}

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