summaryrefslogtreecommitdiff
path: root/parser.mly
diff options
context:
space:
mode:
authorGuillaume Seguin <guillaume@segu.in>2009-01-23 02:46:05 +0100
committerGuillaume Seguin <guillaume@segu.in>2009-01-23 02:46:05 +0100
commitf04320e3595b661a21660bf3df2ba502bfc154a3 (patch)
tree9ff6308601034b3ce0de69f38af7deae4e218914 /parser.mly
parent836d8929467aaee4ef0ba4de15c87b0df8e3c08c (diff)
downloadpetitcaml-f04320e3595b661a21660bf3df2ba502bfc154a3.tar.gz
petitcaml-f04320e3595b661a21660bf3df2ba502bfc154a3.tar.bz2
[petitcaml] Simplify function name handling through motifs usage
Diffstat (limited to 'parser.mly')
-rw-r--r--parser.mly2
1 files changed, 1 insertions, 1 deletions
diff --git a/parser.mly b/parser.mly
index 9f1936d..f084336 100644
--- a/parser.mly
+++ b/parser.mly
@@ -103,7 +103,7 @@ expr:
loc = (make_start_end_loc func.loc arg.loc) }
args }
| FUNCTION m = motif RIGHTARROW e = expr
- { locd_expr (Efunc ({ name = None ;
+ { locd_expr (Efunc ({ name = raw_motif (Munderscore) ;
recursive = false ;
arg = m ;
body = e }))