From 9d7db938a49492ba704cf01fbef1bb71cca0f966 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 Jun 1998 08:14:37 +0000
Subject: [PATCH] Fix bug: C-u M-A was not inserting args when one of the #!
 tokens appeared in the argument list.

---
 v7/src/edwin/schmod.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index 4876b83ba..ef8fd5e78 100644
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: schmod.scm,v 1.41 1998/03/02 18:55:12 cph Exp $
+;;;	$Id: schmod.scm,v 1.42 1998/06/07 08:14:37 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-98 Massachusetts Institute of Technology
 ;;;
@@ -309,13 +309,18 @@ Otherwise, it is shown in the echo area."
 			   (or (symbol? argl)
 			       (null? argl)
 			       (and (pair? argl)
-				    (symbol? (car argl))
+				    (or (symbol? (car argl))
+					(eq? (car argl) #!optional)
+					(eq? (car argl) #!rest)
+					(eq? (car argl) #!aux))
 				    (loop (cdr argl))))))
 		    (let ((point (mark-left-inserting-copy point)))
 		      (let loop ((argl argl))
 			(cond ((pair? argl)
 			       (insert-char #\space point)
-			       (insert-string (symbol->string (car argl))
+			       (insert-string (if (symbol? (car argl))
+						  (symbol->string (car argl))
+						  (write-to-string (car argl)))
 					      point)
 			       (loop (cdr argl)))
 			      ((symbol? argl)
-- 
2.25.1