Commit e48f58ca authored by Diederik van Arkel's avatar Diederik van Arkel

remove dead code

parent 38e21d38
......@@ -101,20 +101,15 @@ saveEnvironments envpath targets env
where
saveEnvironments :: !String [.Target] *a -> *(Maybe .[{#Char}],*a) | FileSystem a
saveEnvironments envpath targets env
// saveEnvironments envpath [] env = (Nothing,env)
// saveEnvironments envpath [target:targets] env
# (opened, file, env) = fopen envpath FWriteText env
// # (opened, file, env) = fopen ((MakeFullPathname envpath target.target_name)+++".env") FWriteText env
| not opened
= (Just ["Fatal open environments..."],env)
#! options = WEO targets
// #! options = WEO [target]
#! file = WriteOptionsFile EnvFileVersion options file
# (closed,env) = fclose file env
| not closed
= (Just ["Fatal close environments..."],env)
= (Nothing,env)
// = saveEnvironments envpath targets env
/* Variant die in dir zoekt naar alle *.env bestanden?
* Eerst beginnen met targets in leesbare variant weg te schrijven...
......
......@@ -10,8 +10,7 @@ import UtilNewlinesFile
//import StdDebug
trace_n _ g :== g
//from dodebug import trace_n`, instance toString (a,b), instance toString (a,b,c), instance toString (a,b,c,d)
//trace_n :== trace_n`
//from dodebug import trace_n`
instance toString Symbol
where
......@@ -314,7 +313,6 @@ FindDefinitionInText imp imports cleanid text files
//FindIdentifiersInInput :: !Bool !String !(List String) !Symbol !Input -> (!Input, !List String, !IdentifierPositionList);
FindIdentifiersInInput imp cleanid imports sym=:{repr} input positions
| trace_n ("FIII",input.linenr,input.charnr,sym) False = undef
| repr==FromSymID && imp
# (input,sym,imports,positions) = FindFrom imports input positions
= FindIdentifiersInInput imp cleanid imports sym input positions
......
Markdown is supported
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