diff --git a/collects/mzlib/info.ss b/collects/mzlib/info.ss deleted file mode 100644 index 793e937..0000000 --- a/collects/mzlib/info.ss +++ /dev/null @@ -1,4 +0,0 @@ - -(module info (lib "infotab.ss" "setup") - (define name "MzLib")) - diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index 891a954..c56c4b3 100644 --- a/collects/parser-tools/lex.ss +++ b/collects/parser-tools/lex.ss @@ -154,21 +154,17 @@ (cond ((= 0 num-to-add) (values from to)) (else - (cond - ((eq? #\newline (car from)) - (set-lex-buffer-line! - lb - (sub1 (lex-buffer-line lb))) - (set-lex-buffer-offset! - lb - (car (lex-buffer-line-lengths lb))) - (set-lex-buffer-line-lengths! - lb - (cdr (lex-buffer-line-lengths lb)))) - (else - (set-lex-buffer-offset! - lb - (sub1 (lex-buffer-offset lb))))) + (if (eq? #\newline (car from)) + (begin + (set-lex-buffer-line! + lb + (sub1 (lex-buffer-line lb))) + (set-lex-buffer-offset! + lb + (car (lex-buffer-line-lengths lb))) + (set-lex-buffer-line-lengths! + lb + (cdr (lex-buffer-line-lengths lb))))) (switch-buffers (cdr from) (cons (car from) to) (sub1 num-to-add))))))) diff --git a/src/wxmac/src/mac/wx_txt.cc b/src/wxmac/src/mac/wx_txt.cc deleted file mode 100644 index e69de29..0000000