~ chicken-core (chicken-5) 81874fead47a5333f7515069fbd648150bfd62cd

commit 81874fead47a5333f7515069fbd648150bfd62cd
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 17 11:37:22 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 17 11:37:22 2011 +0200

    also for internal alias for call-with-values, of course

diff --git a/types.db b/types.db
index 360eb2aa..33a2ee8e 100644
--- a/types.db
+++ b/types.db
@@ -502,6 +502,12 @@
 			  (let ((#(tmp2) #(2)))
 			    (#(tmp2) (#(tmp1)))))))
 
+(##sys#call-with-values
+ (procedure! ##sys#call-with-values ((procedure () . *) procedure) . *)
+ (((procedure () *) *) (let ((#(tmp1) #(1)))
+			 (let ((#(tmp2) #(2)))
+			   (#(tmp2) (#(tmp1)))))))
+
 (eval (procedure eval (* #!optional *) *))
 (char-ready? (procedure! char-ready? (#!optional port) boolean))