id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
880	bug with assume	megane		"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	  	<--


}}}"	defect	closed	major	4.9.0	unknown	4.7.x	fixed