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

---
 elk.init | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'elk.init')

diff --git a/elk.init b/elk.init
index 09dc940..e85a908 100644
--- a/elk.init
+++ b/elk.init
@@ -241,10 +241,13 @@
 ;;; (FILE-EXISTS? <string>) already here.
 
 ;;; (DELETE-FILE <string>)
-(define (delete-file f) (system (string-append "rm " f)))
+(define (delete-file f) (system (string-append "rm '" f "'")))
 
 ;------------
 
+;;@ (FILE-POSITION <port> . k)
+(define (file-position . args) #f)
+
 ;;; (OUTPUT-PORT-WIDTH <port>)
 (define (output-port-width . arg) 79)
 
-- 
cgit v1.2.3