From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 10 Apr 2016 19:52:09 +0000 (-0700)
Subject: plugin tags-fix.shs: typos
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~57
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4de3c3da5fd55bb91e948d4728784ccaf870ab78;p=mit-scheme.git

plugin tags-fix.shs: typos
---

diff --git a/src/blowfish/tags-fix.sh b/src/blowfish/tags-fix.sh
index 441c87fb6..ae5d023e6 100755
--- a/src/blowfish/tags-fix.sh
+++ b/src/blowfish/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+	     (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
 	(const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
 	(let ((line (read-line in)))
-	  #;(if (eof-object? line)
-	      (begin (write-string ": <eof>") (newline))
-	      (if (string=? line "\f")
-		  (begin (write-string ": <formfeed>") (newline))
-		  (begin (write-string ": ") (write-string line) (newline))))
 	  (cond ((eof-object? line)
 		 unspecific)
 		((string=? line "\f")
diff --git a/src/gdbm/tags-fix.sh b/src/gdbm/tags-fix.sh
index 441c87fb6..ae5d023e6 100755
--- a/src/gdbm/tags-fix.sh
+++ b/src/gdbm/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+	     (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
 	(const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
 	(let ((line (read-line in)))
-	  #;(if (eof-object? line)
-	      (begin (write-string ": <eof>") (newline))
-	      (if (string=? line "\f")
-		  (begin (write-string ": <formfeed>") (newline))
-		  (begin (write-string ": ") (write-string line) (newline))))
 	  (cond ((eof-object? line)
 		 unspecific)
 		((string=? line "\f")
diff --git a/src/mcrypt/tags-fix.sh b/src/mcrypt/tags-fix.sh
index 441c87fb6..ae5d023e6 100755
--- a/src/mcrypt/tags-fix.sh
+++ b/src/mcrypt/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+	     (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
 	(const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
 	(let ((line (read-line in)))
-	  #;(if (eof-object? line)
-	      (begin (write-string ": <eof>") (newline))
-	      (if (string=? line "\f")
-		  (begin (write-string ": <formfeed>") (newline))
-		  (begin (write-string ": ") (write-string line) (newline))))
 	  (cond ((eof-object? line)
 		 unspecific)
 		((string=? line "\f")
diff --git a/src/md5/tags-fix.sh b/src/md5/tags-fix.sh
index 441c87fb6..ae5d023e6 100755
--- a/src/md5/tags-fix.sh
+++ b/src/md5/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+	     (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
 	(const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
 	(let ((line (read-line in)))
-	  #;(if (eof-object? line)
-	      (begin (write-string ": <eof>") (newline))
-	      (if (string=? line "\f")
-		  (begin (write-string ": <formfeed>") (newline))
-		  (begin (write-string ": ") (write-string line) (newline))))
 	  (cond ((eof-object? line)
 		 unspecific)
 		((string=? line "\f")
diff --git a/src/mhash/tags-fix.sh b/src/mhash/tags-fix.sh
index 441c87fb6..ae5d023e6 100755
--- a/src/mhash/tags-fix.sh
+++ b/src/mhash/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+	     (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
 	(const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
 	(let ((line (read-line in)))
-	  #;(if (eof-object? line)
-	      (begin (write-string ": <eof>") (newline))
-	      (if (string=? line "\f")
-		  (begin (write-string ": <formfeed>") (newline))
-		  (begin (write-string ": ") (write-string line) (newline))))
 	  (cond ((eof-object? line)
 		 unspecific)
 		((string=? line "\f")