From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:38 -0800
Subject: Import Upstream version 3a5

---
 vscm.init | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'vscm.init')

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)
-- 
cgit v1.2.3