From 1acb3c8401751068ae6d4d90b7ff56299ddb687e Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 1 Feb 2013 14:58:47 -0700 Subject: [PATCH] Correct the test case so it executes the error path we want. original commit: ab3c69ceaaa4c31d2c608a3054bafc400e02e7b8 --- collects/parser-tools/private-lex/error-tests.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/private-lex/error-tests.rkt b/collects/parser-tools/private-lex/error-tests.rkt index 32ad774..bbccbe0 100644 --- a/collects/parser-tools/private-lex/error-tests.rkt +++ b/collects/parser-tools/private-lex/error-tests.rkt @@ -47,7 +47,7 @@ (define-lex-abbrev a b) (define-lex-abbrev b a) (let () - (lexer ((a) 1)))))) + (lexer (a 1)))))) (check-regexp-match #rx"regular-expression" (catch-syn-error @@ -55,7 +55,7 @@ (define-lex-abbrev a (repetition 0 1 b)) (define-lex-abbrev b (repetition 0 1 a)) (let () - (lexer ((a) 1)))))) + (lexer (a 1)))))) ;; Detecting cycle within same abbreviation: (check-regexp-match #rx"regular-expression"