change class syntax

[happyabc/happyabc.git] / scm / src / parser / lexer.ml

diff --git a/scm/src/parser/lexer.ml b/scm/src/parser/lexer.ml
index 7b8c5b8..c8e16f5 100644 (file)
--- a/scm/src/parser/lexer.ml
+++ b/scm/src/parser/lexer.ml
@@ -19,7 +19,7 @@ let float  =
 
 let implode xs =
   let empty =
-    Node.empty "" in
+    Node.ghost "" in
   List.fold_right
     (fun x ({value=ys} as node) ->
        if node = empty then