- LSome (G.Comment (loc, com))
- | (iloc,fname,normal,mode) = include_command ; SYMBOL "." ->
- LSome (G.Executable
- (loc,G.Command (loc,G.Include (iloc,fname,(),""))))
- | scom = lexicon_command ; SYMBOL "." ->
- assert false
-(*
- fun ?(never_include=false) ~include_paths status ->
- let status = LE.eval_command status scom in
- status, LNone loc
-*)
+ LSome (G.Comment (loc, com))
+ | (iloc,fname,mode) = include_command ; SYMBOL "." ->
+ LSome (G.Executable (loc,G.NCommand (loc,G.Include (iloc,mode,fname))))