[[project @ 2001-08-01 19:12:53 by ghouston]
ghouston**20010801191253
 Ignore-this: 569151536b60ac0bf29cd7fa2bb306b2
 	* utilities.scm (deprecated-proc): redefined using Guile's deprecation
 	mechanism.
] hunk ./ChangeLog 11
+	* utilities.scm (deprecated-proc): redefined using Guile's deprecation
+	mechanism.
+
hunk ./char-p.scm 33
-(define (char-alphanumeric? c)
-  (issue-deprecation-warning
-   "char-alphanumeric? is deprecated.  Use char-letter+digit? instead")
-  (char-letter+digit? c))
+(begin-deprecated
+ (define (char-alphanumeric? c)
+   (issue-deprecation-warning
+    "char-alphanumeric? is deprecated.  Use char-letter+digit? instead")
+   (char-letter+digit? c))
hunk ./char-p.scm 39
-(define (char-control? c)
-  (issue-deprecation-warning
-   "char-control? is deprecated.  Use char-iso-control? instead")
-  (char-iso-control? c))
+ (define (char-control? c)
+   (issue-deprecation-warning
+    "char-control? is deprecated.  Use char-iso-control? instead")
+   (char-iso-control? c)))
hunk ./char-set.scm 48
-	char-ascii?
hunk ./char-set.scm 119
-(define (char-ascii? char)
-  (let ((maybe-ascii (char->ascii char)))
-    (and (<= 0 maybe-ascii 127) maybe-ascii)))
-
hunk ./utilities.scm 200
-  (let ((warned? #f))
+  (begin-deprecated
hunk ./utilities.scm 202
-      (cond ((not warned?)
-	     (set! warned? #t)
-	     (apply warn
-		    "Deprecated procedure (may not be supported in a future release)"
-		    name
-		    maybe-preferred-msg)))
+      (issue-deprecation-warning
+       (string-append
+	(symbol->string name)
+	" is deprecated. "
+	(if (pair? maybe-preferred-msg)
+	    (car maybe-preferred-msg)
+	    "")))