~ chicken-core (chicken-5) 94b60523af8122580f89c8a175bf933b5f4dc3c0

commit 94b60523af8122580f89c8a175bf933b5f4dc3c0
Author:     felix <felix@y.(none)>
AuthorDate: Wed Feb 17 16:18:52 2010 +0100
Commit:     felix <felix@y.(none)>
CommitDate: Wed Feb 17 16:18:52 2010 +0100

    renamed scan-lines to scan-input-lines

diff --git a/manual/Unit utils b/manual/Unit utils
index e2b693b5..a537abda 100644
--- a/manual/Unit utils	
+++ b/manual/Unit utils	
@@ -98,9 +98,9 @@ using backslash ({{\}}).
 
 === Scanning through an input port
 
-==== scan-lines
+==== scan-input-lines
 
-<procedure>(scan-lines REGEXP [PORT])</procedure>
+<procedure>(scan-input-lines REGEXP [PORT])</procedure>
 
 Reads lines from {{PORT}} (defaults to the result of {{(current-input-port)}})
 using {{read-line}} and returns the result of {{(string-search REGEXP LINE)}},
diff --git a/types.db b/types.db
index 567cfc8b..1eed0732 100644
--- a/types.db
+++ b/types.db
@@ -1391,6 +1391,6 @@
 (qs (procedure qs (string) string))
 (compile-file (procedure compile-file (string #!rest) string))
 (compile-file-options (procedure compile-file-options (#!optional list) list))
-(scan-lines (procedure scan-lines (* #!optional port) *))
+(scan-input-lines (procedure scan-input-lines (* #!optional port) *))
 
 ;; missing: setup-api, setup-download
diff --git a/utils.scm b/utils.scm
index dd13914a..3a81fbeb 100644
--- a/utils.scm
+++ b/utils.scm
@@ -129,7 +129,7 @@
 
 ;;; Scan lines until regex matches
 
-(define scan-lines
+(define scan-input-lines
   (let ((regexp regexp)
 	(read-line read-line)
 	(string-search string-search))