From 83e6366c56bf1a2ab222cd528ebb61bb99e2756b Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Wed, 24 Apr 2002 04:52:09 +0000 Subject: [PATCH] *** empty log message *** original commit: bdae5a215db31a87c75c110c36460794c5b4595d --- collects/parser-tools/lex.ss | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index 34158c2..2e83fa5 100644 --- a/collects/parser-tools/lex.ss +++ b/collects/parser-tools/lex.ss @@ -94,14 +94,6 @@ "Form should be (define-lex-abbrevs (name re) ...)" stx)))) - (require (lib "cffi.ss" "compiler")) - (define get-next-state ;;(lambda (input-char state eof-table trans-table) - (c-lambda (scheme-object int scheme-object scheme-object) int - "if (SCHEME_EOFP(___arg1)) - return (SCHEME_VEC_ELS(___arg3))[___arg2]; - else - return (SCHEME_VEC_ELS(___arg4))[SCHEME_CHAR_VAL(___arg1) | ___arg2 << 8]; ")) - (define (lexer-body start-state trans-table eof-table actions no-lookahead wrap?) (lambda (lb) (unless (lex-buffer? lb) @@ -125,7 +117,7 @@ (length 1) ;; how many characters are in the longest match (longest-match-length 1)) - (let ((next-state + (let ((next-state (cond ((eof-object? char) (vector-ref eof-table state))