projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-07-23 23:08:41 by sof]
[ghc-hetmet.git]
/
ghc
/
compiler
/
parser
/
Lex.lhs
diff --git
a/ghc/compiler/parser/Lex.lhs
b/ghc/compiler/parser/Lex.lhs
index
bcafcb5
..
fba97ed
100644
(file)
--- a/
ghc/compiler/parser/Lex.lhs
+++ b/
ghc/compiler/parser/Lex.lhs
@@
-830,6
+830,8
@@
lex_demand cont buf =
'L'# -> read_em (Lazy : acc) (stepOn buf)
'A'# -> read_em (Abs : acc) (stepOn buf)
'V'# -> read_em (Eval : acc) (stepOn buf)
'L'# -> read_em (Lazy : acc) (stepOn buf)
'A'# -> read_em (Abs : acc) (stepOn buf)
'V'# -> read_em (Eval : acc) (stepOn buf)
+ 'X'# -> read_em (Err : acc) (stepOn buf)
+ 'B'# -> read_em (Bot : acc) (stepOn buf)
')'# -> (reverse acc, stepOn buf)
'C'# -> do_call acc (stepOnBy# buf 2#)
'U'# -> do_unpack1 Drop Now acc (stepOnBy# buf 1#)
')'# -> (reverse acc, stepOn buf)
'C'# -> do_call acc (stepOnBy# buf 2#)
'U'# -> do_unpack1 Drop Now acc (stepOnBy# buf 1#)