You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Original bug ID: 6334 Reporter: sowa Assigned to:@diml Status: closed (set by @diml on 2014-03-04T10:09:35Z) Resolution: fixed Priority: normal Severity: minor Version: 4.01.0 Category: -for Camlp4 use https://github.com/ocaml/camlp4/issues
Bug description
Camlp4.Struct.FreeVars module treats a record field name as a variable name.
For example, FreeVars reports that <:expr<r.name>> has free variables "r" and "name"; <:expr> has free variable "r".
Steps to reproduce
$ ocaml -I +camlp4
OCaml version 4.01.0
#load "dynlink.cma";;
#load "camlp4orf.cma";;
Camlp4 Parsing version 4.01.0
open Camlp4.PreCast;;
let _loc = Loc.ghost;;
val _loc : Camlp4.PreCast.Loc.t =
let fv e = let module FV = Camlp4.Struct.FreeVars.Make(Ast) in FV.S.elements (FV.free_vars FV.S.empty e);;
val fv : Camlp4.PreCast.Ast.expr -> string list =
fv <:expr<r.name>>;;
: string list = ["name"; "r"]
The text was updated successfully, but these errors were encountered:
Original bug ID: 6334
Reporter: sowa
Assigned to: @diml
Status: closed (set by @diml on 2014-03-04T10:09:35Z)
Resolution: fixed
Priority: normal
Severity: minor
Version: 4.01.0
Category: -for Camlp4 use https://github.com/ocaml/camlp4/issues
Bug description
Camlp4.Struct.FreeVars module treats a record field name as a variable name.
For example, FreeVars reports that <:expr<r.name>> has free variables "r" and "name"; <:expr> has free variable "r".
Steps to reproduce
$ ocaml -I +camlp4
OCaml version 4.01.0
#load "dynlink.cma";;
#load "camlp4orf.cma";;
open Camlp4.PreCast;;
let _loc = Loc.ghost;;
val _loc : Camlp4.PreCast.Loc.t =
let fv e = let module FV = Camlp4.Struct.FreeVars.Make(Ast) in FV.S.elements (FV.free_vars FV.S.empty e);;
val fv : Camlp4.PreCast.Ast.expr -> string list =
fv <:expr<r.name>>;;
The text was updated successfully, but these errors were encountered: