Random pickiness.

Spaces at EOFs, indentation, etc. original commit: 7d6e79023cf9872e6f6af2f89961b742c6296f1d
13 years ago · f4d9e18360
parent e4eafd14e1
commit f4d9e18360
3 changed files with 7 additions and 9 deletions
--- a/collects/parser-tools/private-lex/unicode-chars.rkt
+++ b/collects/parser-tools/private-lex/unicode-chars.rkt
@ -38,7 +38,6 @@
                (else
                 (loop i (add1 i) #t))))))))))

-  
  (define (compute-ranges x?)
    (delay (get-chars-for (lambda (x) (x? (integer->char x))) mapped-chars)))
  
@ -57,7 +56,6 @@



-       
  (test-block ()
              ((get-chars-for odd? '()) '())
              ((get-chars-for odd? '((1 4 #f) (8 13 #f))) '((1 . 1) (3 . 3) (9 . 9) (11 . 11) (13 . 13)))