mirror of
https://github.com/github/semantic.git
synced 2024-12-25 16:02:43 +03:00
Generate load instructions.
This commit is contained in:
parent
0d530dc078
commit
e4470bcbcc
@ -69,6 +69,7 @@ expr = Gen.recursive Gen.choice atoms
|
|||||||
, lambda expr
|
, lambda expr
|
||||||
, Gen.subterm2 expr expr (Core.$$)
|
, Gen.subterm2 expr expr (Core.$$)
|
||||||
, Gen.subterm3 expr expr expr Core.if'
|
, Gen.subterm3 expr expr expr Core.if'
|
||||||
|
, Gen.subterm expr Core.load
|
||||||
, record expr
|
, record expr
|
||||||
, Gen.subtermM expr (\ x -> (x Core....) . namedValue <$> name)
|
, Gen.subtermM expr (\ x -> (x Core....) . namedValue <$> name)
|
||||||
, Gen.subterm2 expr expr (Core..=)
|
, Gen.subterm2 expr expr (Core..=)
|
||||||
|
Loading…
Reference in New Issue
Block a user