~ chicken-core (chicken-5) 8b293b1ce2c701db4d63530583c2ac8696dc018e

commit 8b293b1ce2c701db4d63530583c2ac8696dc018e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Apr 8 14:43:59 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Apr 8 14:43:59 2010 +0200

    inlined literals keep their identity

diff --git a/support.scm b/support.scm
index 44494372..3e397084 100644
--- a/support.scm
+++ b/support.scm
@@ -610,6 +610,8 @@
 	    [params (node-parameters n)]
 	    [class (node-class n)] )
 	(case class
+	  ((quote)
+	   (make-node class params '()))
 	  [(##core#variable) 
 	   (let ((var (first params)))
 	     (when (get db var 'contractable)