~ chicken-core (chicken-5) 301b0ccbb35b0f51e9328ff4641e288d71f29f41

commit 301b0ccbb35b0f51e9328ff4641e288d71f29f41
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Mar 19 23:24:35 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Mar 19 23:24:35 2011 +0100

    types.db fix

diff --git a/tests/fft.scm b/tests/fft.scm
index e8590895..693a7d56 100644
--- a/tests/fft.scm
+++ b/tests/fft.scm
@@ -2067,4 +2067,8 @@
 	(direct-fft-recursive-4 a table)
 	(inverse-fft-recursive-4 a table)))))
 
-(test 2000 11)
+(let-optionals (command-line-arguments)
+    ((iters "2000")
+     (n "11"))
+  (test (string->number iters) (string->number n)))
+
diff --git a/types.db b/types.db
index 1f83d9e3..dfdb6a03 100644
--- a/types.db
+++ b/types.db
@@ -391,7 +391,7 @@
 
 (make-string (procedure make-string (fixnum #!optional char) string)
 	     ((fixnum char) (##sys#make-string #(1) #(2)))
-	     ((fixnum) (##sys#make-string #(1) #\space)))
+	     ((fixnum) (##sys#make-string #(1) '#\space)))
 
 (string-length (procedure string-length (string) fixnum)
 	       ((string) (##sys#size #(1))))