Commit 32baec78 authored by POTTIER Francois's avatar POTTIER Francois

Replace a use of [Production.foldnt] with a use of [Production.mapnt].

parent 227d6672
......@@ -247,9 +247,9 @@ module Closure (L : Lookahead.S) = struct
if pos < length then
match rhs.(pos) with
| Symbol.N nt ->
Production.foldnt nt (fun prod nodes ->
(item2node (import (prod, 0))) :: nodes
) []
Production.mapnt nt (fun prod ->
item2node (import (prod, 0))
)
| Symbol.T _ ->
[]
else
......
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