*** empty log message ***

original commit: e991867a352dd24ea000c7adb439503eafd93f8d

collects/parser-tools/lex.ss

@@ -94,7 +94,13 @@
         "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)