Summary

bug with assume

Metadata

• Id: 52d61839b06ace5cc47335e929a4c606ef86c092
• Trac id: 880
• Type: defect
• Reporter: megane
• Owner:
• Cc:
• Status: closed
• Component: unknown
• Estimated difficulty:
• Resolution: fixed
• Priority: major
• Milestone: 4.9.0
• Version: 4.7.x
• Changetime: 2012-09-24 21:47:48 UTC
• Created: 2012-07-04 11:14:24 UTC
• Keywords:

Attachments

• 52d61839b06ace5cc47335e929a4c606ef86c092/attachments/assume-fix.patch

Description

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	  	<--

Changes and comments

[2012-07-04 11:15:50 UTC] megane attached assume-fix.patch (description=#f)

[2012-07-04 12:18:08 UTC] megane changed status from new to closed

[2012-07-04 12:18:08 UTC] megane set resolution to fixed

[2012-07-04 12:18:08 UTC] megane wrote:

fixed in master

[2012-07-04 12:20:10 UTC] ckeen wrote:

by commit fd11432

[2012-09-24 21:47:48 UTC] felix changed milestone from 4.8.0 to 4.9.0

[2012-09-24 21:47:48 UTC] felix wrote:

Milestone 4.8.0 deleted