Mantis Bug Tracker
Main | My View | View Issues | Change Log | Roadmap
  

View Issue Details [ Jump to Notes ] [ Issue History ] [ Print ]
IDProjectCategoryView StatusDate SubmittedLast Update
0005846OCamlCamlp4public2012-12-05 14:172012-12-05 14:44
Reporterprotz 
Assigned To 
PrioritynormalSeverityminorReproducibilityalways
StatusnewResolutionopen 
PlatformOSOS Version
Product Version 
Target VersionFixed in Version 
Summary0005846: OCaml parses let (!*) but not camlp4o doesn't
Descriptionjonathan@ramona:/tmp $ cat > foo.ml
let (!*) = ();;
jonathan@ramona:/tmp $ ocamlc foo.ml
jonathan@ramona:/tmp $ ocamlc -pp camlp4o foo.ml
File "foo.ml", line 1, characters 4-5:
Parse error: ")" or "module" or [patt] expected after "(" (in [patt])
File "foo.ml", line 1:
Error: Preprocessor error
jonathan@ramona:/tmp $
TagsNo tags attached.
Attached Files

- Relationships

-  Notes
(0008568)
hongboz (developer)
2012-12-05 14:44
edited on: 2012-12-05 14:45

 Hi, try
let ( !* ) = ();;

camlp4 is a bit conservative when lexing here, I will upload a fix later

===================================
let ( !* ) = () ;;
==
`LID "let" File "<string>", line 1, characters 0-3
`BLANKS " " File "<string>", line 1, characters 3-4
`ESCAPED_IDENT "!*" File "<string>", line 1, characters 4-10
`BLANKS " " File "<string>", line 1, characters 10-11
`SYMBOL "=" File "<string>", line 1, characters 11-12
`BLANKS " " File "<string>", line 1, characters 12-13
`SYMBOL "(" File "<string>", line 1, characters 13-14
`SYMBOL ")" File "<string>", line 1, characters 14-15
`SYMBOL ";" File "<string>", line 1, characters 15-16
`EOI
=======
let (!*) = ();;
`LID "let" File "<string>", line 1, characters 0-3
`BLANKS " " File "<string>", line 1, characters 3-4
`SYMBOL "(" File "<string>", line 1, characters 4-5
`BLANKS " " File "<string>", line 1, characters 5-6
`SYMBOL "!*" File "<string>", line 1, characters 6-8
`SYMBOL ")" File "<string>", line 1, characters 8-9
`BLANKS " " File "<string>", line 1, characters 9-10
`SYMBOL "=" File "<string>", line 1, characters 10-11
`BLANKS " " File "<string>", line 1, characters 11-12
`SYMBOL "(" File "<string>", line 1, characters 12-13
`SYMBOL ")" File "<string>", line 1, characters 13-14
`SYMBOL ";" File "<string>", line 1, characters 14-15
`EOI

- Issue History
Date Modified Username Field Change
2012-12-05 14:17 protz New Issue
2012-12-05 14:44 hongboz Note Added: 0008568
2012-12-05 14:45 hongboz Note Edited: 0008568 View Revisions

Copyright © 2000 - 2011 MantisBT Group
Powered by Mantis Bugtracker