|
@@ -486,7 +486,6 @@ let rec gen_constant ctx c p =
|
|
|
| TString s -> push ctx [VStr (unescape_chars s p)]
|
|
| TString s -> push ctx [VStr (unescape_chars s p)]
|
|
|
| TBool b -> write ctx (APush [PBool b])
|
|
| TBool b -> write ctx (APush [PBool b])
|
|
|
| TNull -> push ctx [VNull]
|
|
| TNull -> push ctx [VNull]
|
|
|
- | TDone -> push ctx [VStr "@done"]
|
|
|
|
|
| TThis
|
|
| TThis
|
|
|
| TSuper -> assert false
|
|
| TSuper -> assert false
|
|
|
|
|
|
Nicolas Cannasse