forked from GitHub/gf-rgl
thread EEnv into ShellState
This commit is contained in:
@@ -19,6 +19,11 @@ fun
|
|||||||
|
|
||||||
SymbS : Symb -> S ; -- A
|
SymbS : Symb -> S ; -- A
|
||||||
|
|
||||||
|
--2 Symbols as numerals
|
||||||
|
|
||||||
|
SymbNum : Symb -> Num ; -- n
|
||||||
|
SymbOrd : Symb -> Num ; -- n'th
|
||||||
|
|
||||||
--2 Symbol lists
|
--2 Symbol lists
|
||||||
|
|
||||||
-- A symbol list has at least two elements. The last two are separated
|
-- A symbol list has at least two elements. The last two are separated
|
||||||
|
|||||||
@@ -15,6 +15,9 @@ lin
|
|||||||
|
|
||||||
SymbS sy = sy ;
|
SymbS sy = sy ;
|
||||||
|
|
||||||
|
SymbNum sy = sy ;
|
||||||
|
SymbOrd sy = {s = sy.s ++ "th"} ;
|
||||||
|
|
||||||
lincat
|
lincat
|
||||||
|
|
||||||
Symb, [Symb] = SS ;
|
Symb, [Symb] = SS ;
|
||||||
|
|||||||
Reference in New Issue
Block a user