Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
L
libcaml-grew
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
3
Issues
3
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
grew
libcaml-grew
Commits
27d46d50
Commit
27d46d50
authored
Dec 15, 2017
by
Bruno Guillaume
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix semantics of Onf
parent
23296639
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
src/grew_grs.ml
src/grew_grs.ml
+2
-2
No files found.
src/grew_grs.ml
View file @
27d46d50
...
...
@@ -910,7 +910,7 @@ module Grs = struct
|
Some
(
Strategy
(
_
,
ast_strat
)
,
new_pointed
)
->
loop
new_pointed
ast_strat
end
|
New_ast
.
Pick
s
->
loop
pointed
s
|
New_ast
.
Onf
s
->
loop
pointed
s
|
New_ast
.
Onf
s
->
true
|
New_ast
.
Alt
l
->
List
.
exists
(
fun
s
->
loop
pointed
s
)
l
|
New_ast
.
Seq
l
->
List
.
for_all
(
fun
s
->
loop
pointed
s
)
l
|
New_ast
.
Iter
_
->
true
...
...
@@ -1087,7 +1087,7 @@ module Grs = struct
|
New_ast
.
Onf
s
->
begin
match
onf_strat_simple_rewrite
?
domain
pointed
(
New_ast
.
Iter
s
)
gwh
.
Graph_with_history
.
graph
with
|
None
->
Graph_with_history_set
.
empty
|
None
->
Graph_with_history_set
.
singleton
gwh
|
Some
new_g
->
Graph_with_history_set
.
singleton
(
Graph_with_history
.
from_graph
new_g
)
end
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment