Mantis Bug Tracker

View Issue Details Jump to Notes ] Issue History ] Print ]
IDProjectCategoryView StatusDate SubmittedLast Update
0005846OCamlCamlp4public2012-12-05 14:172014-08-21 11:24
Reporterprotz 
Assigned To 
PrioritynormalSeverityminorReproducibilityalways
StatusacknowledgedResolutionopen 
PlatformOSOS Version
Product Version 
Target Version4.02.1+devFixed 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
2013-06-28 17:47 doligez Status new => acknowledged
2013-06-28 17:47 doligez Target Version => 4.02.0+dev
2013-07-12 18:15 doligez Target Version 4.02.0+dev => 4.01.1+dev
2014-05-25 20:20 doligez Target Version 4.01.1+dev => 4.02.0+dev
2014-08-21 11:24 doligez Target Version 4.02.0+dev => 4.02.1+dev


Copyright © 2000 - 2011 MantisBT Group
Powered by Mantis Bugtracker