From f873fad7e549f7c02ac3670730a4043a1139e0c8 Mon Sep 17 00:00:00 2001 From: johnvg Date: Wed, 4 Feb 2004 16:53:02 +0000 Subject: replace double ' by a single ' inside ' and ' git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1445 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- main/Mac/CoclSystemDependent.icl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'main') diff --git a/main/Mac/CoclSystemDependent.icl b/main/Mac/CoclSystemDependent.icl index 72c1711..63fa28a 100644 --- a/main/Mac/CoclSystemDependent.icl +++ b/main/Mac/CoclSystemDependent.icl @@ -76,9 +76,12 @@ script_handler script files = split quoted frm (to+2) n s | s.[to] == ' ' && not quoted = [s % (frm, to-1) : split False (to+1) (to+1) n s] - | s.[to] == '\'' && quoted - = [s % (frm, to-1) : split False (to+1) (to+1) n s] | s.[to] == '\'' + | quoted + | to