From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:38 -0800 Subject: Import Upstream version 3a5 --- batch.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'batch.scm') diff --git a/batch.scm b/batch.scm index 0219562..14117d0 100644 --- a/batch.scm +++ b/batch.scm @@ -259,7 +259,7 @@ ((unix) ((cond ((and (string? name) (provided? 'system)) (lambda (proc) (let ((ans (call-with-output-file name proc))) - (system (string-append "chmod +x " name)) + (system (string-append "chmod +x '" name "'")) ans))) ((output-port? name) (lambda (proc) (proc name))) (else (lambda (proc) (proc (current-output-port))))) @@ -426,6 +426,7 @@ (apple2 *unknown*) (arm *unknown*) (atari.st *unknown*) + (atari-st *unknown*) (cdc *unknown*) (celerity *unknown*) (concurrent *unknown*) -- cgit v1.2.3