~ chicken-core (chicken-5) b5463fe0110b1fd17e300182b59b177ae7394d41

commit b5463fe0110b1fd17e300182b59b177ae7394d41
Author:     felix <felix@y.(none)>
AuthorDate: Sun Apr 25 00:45:43 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Sun Apr 25 00:45:43 2010 +0200

    removed duplicate export from setup-api and unused code in library.scm

diff --git a/library.scm b/library.scm
index 438f9363..47e77c05 100644
--- a/library.scm
+++ b/library.scm
@@ -3166,24 +3166,6 @@ EOF
 		 (k pos2 (fx+ pos2 2)) )
 		(else (loop (fx+ pos2 1))) ) ) ) ) )
 
-; Scans a string, 'buf', from a start index, 'pos', to an end index,
-; 'lim'. During the scan the current position of the 'port' is updated to
-; reflect the rows & columns encountered.
-#; ;UNUSED (at the moment)
-(define (##sys#update-port-position/scan port buf pos lim)
-  (let loop ([pos pos])
-    (let ([bumper
-	   (lambda (cur ptr)
-	     (cond [(eq? cur ptr)	; at EOB
-		     (##sys#setislot port 5 (fx+ (##sys#slot port 5) (fx- cur pos)))
-		     #f ]
-		   [else		; at EOL
-		     (##sys#setislot port 4 (fx+ (##sys#slot port 4) 1))
-		     (##sys#setislot port 5 0)
-		     ptr ] ) ) ] )
-      (when pos
-	(loop (##sys#scan-buffer-line buf lim pos bumper)) ) ) ) )
-
 (define (open-input-string string)
   (##sys#check-string string 'open-input-string)
   (let ([port (##sys#make-port #t ##sys#string-port-class "(string)" 'string)])
diff --git a/setup-api.scm b/setup-api.scm
index 93755ec9..203e0bcc 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -36,8 +36,7 @@
 
 (module setup-api
 
-    (move-file 
-     (run execute)
+    ((run execute)
      compile
      standard-extension
      make make/proc