diff options
| author | johnvg | 2004-02-04 16:53:02 +0000 |
|---|---|---|
| committer | johnvg | 2004-02-04 16:53:02 +0000 |
| commit | f873fad7e549f7c02ac3670730a4043a1139e0c8 (patch) | |
| tree | 188a3eeb6b234658db81dee204e01812a9761969 /main | |
| parent | removed duplicated declarations from dcl module in icl module (diff) | |
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
Diffstat (limited to 'main')
| -rw-r--r-- | main/Mac/CoclSystemDependent.icl | 7 |
1 files changed, 5 insertions, 2 deletions
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<n-1 && s.[to+1]=='\'' + # s=(s % (0,to-1))+++(s % (to+1,n-1)) + = split quoted frm (to+1) (n-1) s + = [s % (frm, to-1) : split False (to+1) (to+1) n s] = [s % (frm, to-1) : split True (to+1) (to+1) n s] // otherwise = split quoted frm (to+1) n s |