From 47091568ad85307d68741997a84568a6b8be9d8c Mon Sep 17 00:00:00 2001
From: johnvg
Date: Tue, 18 Jun 2002 11:51:24 +0000
Subject: removed ignored !'s

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

(limited to 'main')

diff --git a/main/Mac/Clean2AppleEventHandler.dcl b/main/Mac/Clean2AppleEventHandler.dcl
index 27efb47..9936d9a 100644
--- a/main/Mac/Clean2AppleEventHandler.dcl
+++ b/main/Mac/Clean2AppleEventHandler.dcl
@@ -11,6 +11,6 @@ from events import :: Event;
 0.2*/
 
 install_apple_event_handlers :: Int;
-HandleAppleEvent :: !Event (!{#Char} *Files -> (!Int,!*Files)) !*Files -> (!Bool,!Bool,!*Files);
+HandleAppleEvent :: !Event ({#Char} *Files -> (!Int,!*Files)) !*Files -> (!Bool,!Bool,!*Files);
 
 get_apple_event_string :: !Int !String -> Int;
diff --git a/main/Mac/Clean2AppleEventHandler.icl b/main/Mac/Clean2AppleEventHandler.icl
index bf1f5c3..4fdc1ba 100644
--- a/main/Mac/Clean2AppleEventHandler.icl
+++ b/main/Mac/Clean2AppleEventHandler.icl
@@ -7,7 +7,7 @@ import StdDebug,StdString;
 
 import code from "cae.obj"; // "cae.carbon.o";
 
-HandleAppleEvent :: !Event (!{#Char} *Files -> (!Int,!*Files)) !*Files -> (!Bool,!Bool,!*Files);
+HandleAppleEvent :: !Event ({#Char} *Files -> (!Int,!*Files)) !*Files -> (!Bool,!Bool,!*Files);
 HandleAppleEvent (b,what,message,when,p1,p2,modifiers) script_handler files
 	| what==HighLevelEvent
 		# r1=handle_apple_event2 what message when p1 p2 modifiers;		
-- 
cgit v1.2.3