~ chicken-core (chicken-5) bc5cc698dac6b49ea86448522693eb0c36664ca7

commit bc5cc698dac6b49ea86448522693eb0c36664ca7
Author:     Moritz Heidkamp <moritz@twoticketsplease.de>
AuthorDate: Sun Mar 25 14:24:19 2012 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Sun Mar 25 14:41:16 2012 +0200

    Fix hygiene issue in `ensure'
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index b634d1f4..2ea70727 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -208,8 +208,8 @@
 		    #:type-error
 		    ,@(if (pair? args)
 			  args
-			  `((##core#immutable '"argument has incorrect type")
-			    ,tmp ',pred) ) ) ) ) ) ) ) )
+			  `((##core#immutable (##core#quote "argument has incorrect type"))
+			    ,tmp (##core#quote ,pred)) ) ) ) ) ) ) ) )
 
 (##sys#extend-macro-environment
  'fluid-let '()