Commit 2b21a722 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

made Clean 2.0 compatible

parent 40a294b1
......@@ -25,7 +25,4 @@ 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)
......@@ -29,14 +29,11 @@ ensureCleanSystemFilesExists path env
set_compiler_id :: Int -> Int
set_compiler_id compiler_id = compiler_id
:: CompileFun st
:== ([{#Char}] st -> (Bool, st))
import thread_message;
import code from "thread_message.obj";
compiler_loop :: (CompileFun *st) *st -> (!Bool, !*st)
compiler_loop :: ([{#Char}] *st -> *(Bool, *st)) *st -> (!Bool, !*st)
compiler_loop compile compile_state
| length commandArgs==2 && commandArgs!!0=="-ide"
# wm_number=get_message_number;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment