Added (port-rewind) in a module. We don't need ' in #:export lists

tk/listlogic.scm

@@ -1,7 +1,7 @@
 (define-module (tk listlogic)
-  #:export ('flatten
-            'lp&
-            'l&
+  #:export (flatten
+            lp&
+            l&
             )
   #:duplicates (warn-override-core warn ))
 

tk/ports.scm

@@ -0,0 +1,7 @@
+(define-module (tk ports)
+  #:export (port-rewind!)
+  )
+
+(define (port-rewind! port chars n)
+  (receive (rw rest) (split-at! chars n)
+    (for-each (lambda (c) (unget-char port c)) rw) rest))