cleanup

cleanup

src/Core/Lex.x

@@ -98,9 +98,6 @@ rlp :-
 <pragma>
 {
     "#-}"                   { constTok TokenRPragma `andBegin` 0 }
-    "{"                     { constTok TokenLBrace }
-    "}"                     { constTok TokenRBrace }
-    ";"                     { constTok TokenSemicolon }
 
     $white                  { skip }
     \n                      { skip }

src/Core/Parse.y

@@ -74,6 +74,8 @@ Program         : ScDefs                        { Program $1 }
 
 ScDefs          :: { [ScDef] }
 ScDefs          : ScDef ';' ScDefs              { $1 : $3 }
+                | ScDef ';'                     { [$1] }
+                | ScDef                         { [$1] }
                 | {- epsilon -}                 { [] }
 
 ScDef           :: { ScDef }