Commit 85d8ebcd authored by John van Groningen's avatar John van Groningen
Browse files

in UtilStrictLists use :: List t :== [!t!]

parent fefe2be0
...@@ -6,7 +6,7 @@ import EdLook, EdMessage, EdVisualText, EdWindow ...@@ -6,7 +6,7 @@ import EdLook, EdMessage, EdVisualText, EdWindow
import EdMouse, EdKeyboard import EdMouse, EdKeyboard
from StrictList import slFromList from StrictList import slFromList
from UtilStrictLists import StrictListToList,:: List(:!),IsEmptyList from UtilStrictLists import StrictListToList,:: List,:!,IsEmptyList
import IDE,IdeState,UtilObjectIO import IDE,IdeState,UtilObjectIO
......
...@@ -6,7 +6,7 @@ import EdLook, EdMessage, EdVisualText, EdWindow ...@@ -6,7 +6,7 @@ import EdLook, EdMessage, EdVisualText, EdWindow
import EdMouse, EdKeyboard import EdMouse, EdKeyboard
from StrictList import slFromList from StrictList import slFromList
from UtilStrictLists import StrictListToList,:: List(:!),IsEmptyList from UtilStrictLists import StrictListToList,:: List,:!,IsEmptyList
import IDE,IdeState,UtilObjectIO import IDE,IdeState,UtilObjectIO
import morecontrols, colorpickcontrol, ioutil, colourclip import morecontrols, colorpickcontrol, ioutil, colourclip
......
...@@ -33,10 +33,6 @@ ProjectFileVersion :== "1.4" ...@@ -33,10 +33,6 @@ ProjectFileVersion :== "1.4"
, pg_postlink :: !Maybe String // experiment: move to LinkOptions , pg_postlink :: !Maybe String // experiment: move to LinkOptions
} }
:: ProjectStaticInfo =
{ stat_paths :: !List Pathname
}
:: ProjectDynamicInfo = :: ProjectDynamicInfo =
{ dyn_syms :: !List UndefSymbol { dyn_syms :: !List UndefSymbol
, dyn_mods :: !List UndefModule , dyn_mods :: !List UndefModule
...@@ -46,7 +42,6 @@ ProjectFileVersion :== "1.4" ...@@ -46,7 +42,6 @@ ProjectFileVersion :== "1.4"
, dyn_paths :: !List Pathname , dyn_paths :: !List Pathname
} }
EmptyStaticInfo :: ProjectStaticInfo
EmptyDynamicInfo :: ProjectDynamicInfo EmptyDynamicInfo :: ProjectDynamicInfo
:: UndefSymbol = :: UndefSymbol =
......
...@@ -26,15 +26,6 @@ ProjectFileVersion :== "1.4" ...@@ -26,15 +26,6 @@ ProjectFileVersion :== "1.4"
, pg_postlink :: !Maybe String , pg_postlink :: !Maybe String
} }
:: ProjectStaticInfo =
{ stat_paths :: !List Pathname
}
EmptyStaticInfo :: ProjectStaticInfo
EmptyStaticInfo =
{ stat_paths = Nil
}
:: ProjectDynamicInfo = :: ProjectDynamicInfo =
{ dyn_syms :: !List UndefSymbol { dyn_syms :: !List UndefSymbol
, dyn_mods :: !List UndefModule , dyn_mods :: !List UndefModule
......
...@@ -4,8 +4,12 @@ import StdString, StdClass ...@@ -4,8 +4,12 @@ import StdString, StdClass
// A strict list data structure // A strict list data structure
:: List t = (:!) infixr 0 !t !(List t) :: List t :== [!t!]
| Nil
Nil :== [!!]
(:!) infixr 0
(:!) h t:==[!h:t!]
instance toString (List a) | toString a instance toString (List a) | toString a
......
...@@ -4,8 +4,12 @@ import StdArray, StdBool, StdClass, StdInt, StdList, StdMisc, StdOrdList, StdStr ...@@ -4,8 +4,12 @@ import StdArray, StdBool, StdClass, StdInt, StdList, StdMisc, StdOrdList, StdStr
// A strict list data structure // A strict list data structure
:: List t = (:!) infixr 0 !t !(List t) :: List t :== [!t!]
| Nil
Nil :== [!!]
(:!) infixr 0
(:!) h t:==[!h:t!]
instance toString (List a) | toString a instance toString (List a) | toString a
where where
......
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