From e09fd379077f69bf48a48c9000b2815bcd3452d4 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Fri, 3 Aug 2001 01:22:24 +0000 Subject: [PATCH] *** empty log message *** original commit: f06328300fb76a609aa492fdd530e359937a6cd6 --- collects/mzlib/info.ss | 4 ---- collects/parser-tools/lex.ss | 26 +++++++++++--------------- src/wxmac/src/mac/wx_txt.cc | 0 3 files changed, 11 insertions(+), 19 deletions(-) delete mode 100644 collects/mzlib/info.ss delete mode 100644 src/wxmac/src/mac/wx_txt.cc 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