Welcome to the CHICKEN Scheme pasting service

assume added by megane on Wed Jul 4 10:50:16 2012

(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	  	<--
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Given a list, which one-argument R5RS procedure returns the element at index 0?
Visually impaired? Let me spell it for you (wav file) download WAV