Import Upstream version 3a5upstream/3a5

1 files changed, 9 insertions, 4 deletions

diff --git a/vscm.init b/vscm.init
index 9a1462d..d005c7e 100644
--- a/vscm.init
+++ b/vscm.init
@@ -237,9 +237,15 @@
 ;;;
 (define (program-arguments) command-line-arguments)
 
-;;; (OUTPUT-PORT-WIDTH <port>)
+;;@ (FILE-POSITION <port> . <k>)
+(define (file-position . args) #f)
+
+;;@ (OUTPUT-PORT-WIDTH <port>)
 (define (output-port-width . arg) 79)
 
+;;@ (OUTPUT-PORT-HEIGHT <port>)
+(define (output-port-height . arg) 24)
+
 ;;; (CURRENT-ERROR-PORT)
 (define (current-error-port)
   (standard-port 2))
@@ -251,11 +257,10 @@
 
 ;;; (FILE-EXISTS? <string>)
 (define (file-exists? f)
-  (system (string-append "test -f " f)))
+  (system (string-append "test -f '" f "'")))
 
 ;;; (DELETE-FILE <string>)
-(define (delete-file f)
-  (remove-file f))
+(define delete-file remove-file)
 
 ;;; FORCE-OUTPUT flushes any pending output on optional arg output port
 (define force-output flush)