diff options
| author | johnvg | 2002-06-18 11:51:24 +0000 |
|---|---|---|
| committer | johnvg | 2002-06-18 11:51:24 +0000 |
| commit | 47091568ad85307d68741997a84568a6b8be9d8c (patch) | |
| tree | a5c1676c7391dac4be2290c802826a7d44a6fa9a /main | |
| parent | use macintosh new lines (diff) | |
removed ignored !'s
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1116 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main')
| -rw-r--r-- | main/Mac/Clean2AppleEventHandler.dcl | 2 | ||||
| -rw-r--r-- | main/Mac/Clean2AppleEventHandler.icl | 2 |
2 files changed, 2 insertions, 2 deletions
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; |