From 27c90ac66522aaa36c67e7936279e9eade47f168 Mon Sep 17 00:00:00 2001
From: ronny
Date: Mon, 1 Jul 2002 11:57:38 +0000
Subject: made Clean 2.0 compatible

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1130 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/Unix/CoclSystemDependent.dcl | 5 +----
 main/Unix/CoclSystemDependent.icl | 8 +++-----
 2 files changed, 4 insertions(+), 9 deletions(-)

(limited to 'main')

diff --git a/main/Unix/CoclSystemDependent.dcl b/main/Unix/CoclSystemDependent.dcl
index c07763b..36deff6 100644
--- a/main/Unix/CoclSystemDependent.dcl
+++ b/main/Unix/CoclSystemDependent.dcl
@@ -24,8 +24,5 @@ SystemDependentInitialIO :: [a]
 ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
 set_compiler_id :: Int -> Int
 
-:: CompileFun st
-    :== ([{#Char}] st -> (Bool, st))
-   
-compiler_loop :: (CompileFun *st) *st -> (!Bool, !*st)
+compiler_loop :: ([{#Char}] *st -> *(Bool, *st)) *st -> (!Bool, !*st)
 
diff --git a/main/Unix/CoclSystemDependent.icl b/main/Unix/CoclSystemDependent.icl
index 83bea1f..8bc7fd2 100644
--- a/main/Unix/CoclSystemDependent.icl
+++ b/main/Unix/CoclSystemDependent.icl
@@ -31,10 +31,8 @@ ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
 ensureCleanSystemFilesExists path env
 	= ensureDirectoryExists path env
 
-:: CompileFun st
-	:==	([{#Char}] st -> (Bool, st))
 	
-compiler_loop :: (CompileFun *st) *st -> (!Bool, !*st)
+compiler_loop :: ([{#Char}] *st -> *(Bool, *st)) *st -> (!Bool, !*st)
 compiler_loop compile compile_state
 	| length commandArgs==3 && commandArgs!!0=="--pipe"
 		# commands_name= (commandArgs!!1);
@@ -93,14 +91,14 @@ string_to_args string
 				= skip_to_double_quote (i+1);
 
 
-compile_loop :: (CompileFun *st) {#Char} {#Char} *st -> *st
+compile_loop :: ([{#Char}] *st -> *(Bool, *st)) {#Char} {#Char} *st -> *st
 compile_loop compile commands results compile_state
 	# r=open_pipes commands results;
 	| r<>0
 		= abort ("compile_loop\n");
 	=	compile_files compile compile_state
 
-compile_files :: (CompileFun *st) *st -> *st
+compile_files :: ([{#Char}] *st -> *(Bool, *st)) *st -> *st
 compile_files compile compile_state
 	# n = get_command_length;
 	| n==(-1)
-- 
cgit v1.2.3