~ chicken-core (chicken-5) 808b9da746b74cdd05c6d9c78e958918e3b6b0b4

commit 808b9da746b74cdd05c6d9c78e958918e3b6b0b4
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 10 08:41:29 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 10 08:41:29 2010 -0400

    added missing entries in types.db and ports.import.scm

diff --git a/manual/Unit ports b/manual/Unit ports
index e26122eb..7285804b 100644
--- a/manual/Unit ports	
+++ b/manual/Unit ports	
@@ -131,6 +131,7 @@ Reads all remaining data from port {{FROM}} using the reader procedure
 {{TO}} for being ports, so the reader and writer procedures may
 perform arbitrary operations as long as they can be invoked
 as {{(READ FROM)}} and {{(WRITE X TO)}}, respectively.
+{{copy-port}} returns an undefined value.
 
 
 === Funky ports
diff --git a/ports.import.scm b/ports.import.scm
index 6338b65e..ccf99d2c 100644
--- a/ports.import.scm
+++ b/ports.import.scm
@@ -28,6 +28,7 @@
  'ports
  '(call-with-input-string
    call-with-output-string
+   copy-port
    make-input-port
    make-output-port
    port-for-each
diff --git a/tests/port-tests.scm b/tests/port-tests.scm
index bc0ae7c1..dc23ef55 100644
--- a/tests/port-tests.scm
+++ b/tests/port-tests.scm
@@ -55,6 +55,9 @@ EOF
      (lambda (x port) (set! out (cons x out))))
     out)))
 
+;; fill buffers
+(read-all "compiler.scm") 
+
 (print "slow...")
 (time
  (with-input-from-file "compiler.scm"
diff --git a/types.db b/types.db
index d19839b6..e1151158 100644
--- a/types.db
+++ b/types.db
@@ -645,6 +645,7 @@
 
 (call-with-input-string (procedure call-with-input-string (string (procedure (port) . *)) . *))
 (call-with-output-string (procedure call-with-output-string ((procedure (port) . *)) string))
+(copy-port (procedure copy-port (* * #!optional (procedure (*) *) (procedure (* *) *)) undefined)) 
 (make-input-port (procedure make-input-port ((procedure () char) (procedure () *) (procedure () . *) #!optional * * *) port))
 (make-output-port (procedure make-output-port ((procedure (string) . *) (procedure () . *) #!optional (procedure () . *)) port))
 (port-for-each (procedure port-for-each ((procedure (*) *) (procedure () . *)) undefined))