1 files changed, 6 insertions, 1 deletions
diff --git a/parser.l b/parser.l
index 4a133836..7ec31991 100644
--- a/parser.l
+++ b/parser.l
@@ -895,11 +895,16 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
   return ' ';
 }
 
-<QSILIT,QWLIT>@ {
+<QSILIT,QWLIT>@/([[({'^,@]|{TOK}) {
   yy_push_state(QSPECIAL, yyscanner);
   return yytext[0];
 }
 
+<QSILIT,QWLIT>@ {
+  yyerrprepf(yyg, lit("malformed @ expression in quasiliteral"), nao);
+  return ERRTOK;
+}
+
 <WLIT,QWLIT>{WS} {
   return ' ';
 }