~ chicken-core (master) 809fe1b3d29a8fe377014be35c8c779c1ca38d46

commit 809fe1b3d29a8fe377014be35c8c779c1ca38d46
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 5 23:12:31 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Sep 5 23:12:31 2026 +0200

    drop workaround for opt. vs kw. args

diff --git a/port.scm b/port.scm
index a3f991d8..329ea715 100644
--- a/port.scm
+++ b/port.scm
@@ -352,16 +352,13 @@ char *ttyname(int fd) {
 ;   10: last/peeked
 
 (define make-input-port
-  (lambda (read ready? close #!rest r       ; "read-buffered" is deprecated
+  (lambda (read ready? close       ; "read-buffered" is deprecated
                 #!key peek-char read-bytevector read-line read-buffered)
     (define (insert dest start c)
       (let* ((bv (##sys#make-bytevector 4))
              (m (##core#inline "C_utf_insert" bv 0 c)))
         (##core#inline "C_copy_memory_with_offset" dest bv 0 start m)
         m))
-   ;XXX this is for ensuring old-style calls fail and can be removed at some stage
-    (when (and (pair? r) (not (##core#inline "C_i_keywordp" (car r))))
-      (error 'make-input-port "invalid invocation - use keyword parameters" r))
     (let* ((class
 	    (vector
 	     (lambda (p)		; read-char