From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 15 Jul 1988 22:28:53 +0000 (+0000)
Subject: Eliminate `syntaxer/cond-=>-helper'.  Add `char-set:not-graphic'.
X-Git-Tag: 20090517-FFI~12660
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c82b95c7b3027913b2e3edffea53a88075e571c;p=mit-scheme.git

Eliminate `syntaxer/cond-=>-helper'.  Add `char-set:not-graphic'.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index cabd2e776..d6ea6492a 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.13 1988/07/15 08:44:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.14 1988/07/15 22:28:53 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -191,6 +191,7 @@ MIT in each case. |#
 	  char-set:alphanumeric
 	  char-set:graphic
 	  char-set:lower-case
+	  char-set:not-graphic
 	  char-set:not-whitespace
 	  char-set:numeric
 	  char-set:standard
@@ -1546,7 +1547,6 @@ MIT in each case. |#
 	  syntax*
 	  syntax-closure/expression
 	  syntax-closure?
-	  syntaxer/cond-=>-helper
 	  system-global-syntax-table
 	  user-initial-syntax-table)
   (export (runtime defstruct)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 2268d7c4e..6915bfd22 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.13 1988/07/15 08:44:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.14 1988/07/15 22:28:53 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -191,6 +191,7 @@ MIT in each case. |#
 	  char-set:alphanumeric
 	  char-set:graphic
 	  char-set:lower-case
+	  char-set:not-graphic
 	  char-set:not-whitespace
 	  char-set:numeric
 	  char-set:standard
@@ -1546,7 +1547,6 @@ MIT in each case. |#
 	  syntax*
 	  syntax-closure/expression
 	  syntax-closure?
-	  syntaxer/cond-=>-helper
 	  system-global-syntax-table
 	  user-initial-syntax-table)
   (export (runtime defstruct)