Favour returning uninterpretable sequences to throwing an exception.

2014-12-17 12:42:38 -05:00 · 2014-12-17 12:42:38 -05:00 · 7d8d470598
parent 11b4a88e62
commit 7d8d470598
1 changed files with 1 additions and 1 deletions
--- a/ansi/lcd-terminal.rkt
+++ b/ansi/lcd-terminal.rkt
@ -85,7 +85,7 @@
       ["c" (S- 'right)]
       ["d" (S- 'left)]
       [_ (simple-key (unknown-escape-sequence lexeme))])]
-    [_ (error 'analyze-vt-bracket-key "Unexpected input sequence from lexer: ~v" lexeme)]))
+    [_ (simple-key (unknown-escape-sequence lexeme))]))

 (define (analyze-vt-O-mainchar lexeme mainchar)
  (match mainchar