~ chicken-core (chicken-5) 7647cf9bca724c7e503a9c6e50802d014f0a1179

commit 7647cf9bca724c7e503a9c6e50802d014f0a1179
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Oct 7 09:29:18 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Oct 7 09:29:18 2010 -0400

    typo fix in compiler

diff --git a/compiler.scm b/compiler.scm
index c5323e39..e3d499bd 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -573,7 +573,7 @@
 			((##core#inline_loc_ref)
 			 `(##core#inline_loc_ref 
 			   ,(##sys#strip-syntax (cadr x))
-			   ,(walk (caddr x) e se dest ldes ht)))
+			   ,(walk (caddr x) e se dest ldest h)))
 
 			((##core#require-for-syntax)
 			 (let ([ids (map eval (cdr x))])