~ chicken-core (chicken-5) 8cbf11a834827fa8a4466b0b65ed9a868bf8102a

commit 8cbf11a834827fa8a4466b0b65ed9a868bf8102a
Author:     felix <bunny351@gmail.com>
AuthorDate: Mon May 31 09:56:13 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Mon May 31 09:56:13 2010 +0200

    use slot-value instead of slot-ref

diff --git a/support.scm b/support.scm
index 057386ce..f0e62bc2 100644
--- a/support.scm
+++ b/support.scm
@@ -974,10 +974,10 @@
 			(let ([tmp (gensym)])
 			  `(let ([,tmp ,param])
 			     (if ,tmp
-				 (slot-ref ,param 'this)
+				 (slot-value ,param 'this)
 				 '#f) ) ) ]
 		       [(nonnull-instance)
-			`(slot-ref ,param 'this) ]
+			`(slot-value ,param 'this) ]
 		       [(const) (repeat (cadr t))]
 		       [(enum)
 			(if unsafe param `(##sys#foreign-integer-argument ,param))]