~ chicken-core (chicken-5) 4eb791fc459977e8f1780d74763ca2359f4bb523

commit 4eb791fc459977e8f1780d74763ca2359f4bb523
Author:     felix <bunny351@gmail.com>
AuthorDate: Fri Apr 30 12:22:26 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun May 2 00:24:30 2010 +0200

    fixed ref. to unimported variable in srfi-69 (thanks to zbigniew)

diff --git a/srfi-69.scm b/srfi-69.scm
index 85f7269c..88435208 100644
--- a/srfi-69.scm
+++ b/srfi-69.scm
@@ -674,7 +674,7 @@
 (define hash-table-update!
   (let ([core-eq? eq?] )
     (lambda (ht key
-	     #!optional (func identity)
+	     #!optional (func (lambda (x) x))
 		        (thunk
 		         (let ([thunk (##sys#slot ht 9)])
 		           (or thunk
@@ -963,7 +963,7 @@
       (do ([lst (##sys#slot vec i) (##sys#slot lst 1)])
 	  [(null? lst)]
 	(let ([b (##sys#slot lst 0)])
-	  (*hash-table-update!/default ht1 (##sys#slot b 0) identity (##sys#slot b 1)) ) ) ) ) )
+	  (*hash-table-update!/default ht1 (##sys#slot b 0) (lambda (x) x) (##sys#slot b 1)) ) ) ) ) )
 
 (define (hash-table-merge! ht1 ht2)
   (##sys#check-structure ht1 'hash-table 'hash-table-merge!)
@@ -1000,7 +1000,7 @@
 	(for-each
 	 (lambda (x)
 	   (##sys#check-pair x 'alist->hash-table)
-	   (*hash-table-update!/default  ht (##sys#slot x 0) identity (##sys#slot x 1)) )
+	   (*hash-table-update!/default  ht (##sys#slot x 0) (lambda (x) x) (##sys#slot x 1)) )
 	 alist)
 	ht ) ) ) )