From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 2 Jul 2000 05:09:21 +0000 (+0000)
Subject: Fix two typos.
X-Git-Tag: 20090517-FFI~3403
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d0f8b6afe7d1732be95d9262023fc13cf5ed3b7;p=mit-scheme.git

Fix two typos.
---

diff --git a/v7/src/imail/url.scm b/v7/src/imail/url.scm
index 01a09aabd..db461a84a 100644
--- a/v7/src/imail/url.scm
+++ b/v7/src/imail/url.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: url.scm,v 1.7 2000/04/14 01:45:49 cph Exp $
+;;; $Id: url.scm,v 1.8 2000/07/02 05:09:21 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -24,7 +24,7 @@
 
 (define url:char-set:safe (string->char-set "$-_.+"))
 (define url:char-set:extra (string->char-set "!*'(),"))
-(define url:char-set:national (string->char-set "{}|\^~[]`"))
+(define url:char-set:national (string->char-set "{}|\\^~[]`"))
 (define url:char-set:punctuation (string->char-set "<>#%\""))
 (define url:char-set:reserved (string->char-set ";/?:@&="))
 
@@ -41,7 +41,8 @@
   (char-set-invert url:char-set:unescaped))
 
 (define url:rexp:escape
-  (rexp-sequence "%" char-set:alphanumeric char-set:alphanumeric))
+  (let ((char-set:hex (string->char-set "0123456789ABCDEFabcdef")))
+    (rexp-sequence "%" char-set:hex char-set:hex)))
 
 (define url:rexp:uchar
   (rexp-alternatives url:char-set:unreserved url:rexp:escape))
diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm
index 01a09aabd..db461a84a 100644
--- a/v7/src/runtime/url.scm
+++ b/v7/src/runtime/url.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: url.scm,v 1.7 2000/04/14 01:45:49 cph Exp $
+;;; $Id: url.scm,v 1.8 2000/07/02 05:09:21 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -24,7 +24,7 @@
 
 (define url:char-set:safe (string->char-set "$-_.+"))
 (define url:char-set:extra (string->char-set "!*'(),"))
-(define url:char-set:national (string->char-set "{}|\^~[]`"))
+(define url:char-set:national (string->char-set "{}|\\^~[]`"))
 (define url:char-set:punctuation (string->char-set "<>#%\""))
 (define url:char-set:reserved (string->char-set ";/?:@&="))
 
@@ -41,7 +41,8 @@
   (char-set-invert url:char-set:unescaped))
 
 (define url:rexp:escape
-  (rexp-sequence "%" char-set:alphanumeric char-set:alphanumeric))
+  (let ((char-set:hex (string->char-set "0123456789ABCDEFabcdef")))
+    (rexp-sequence "%" char-set:hex char-set:hex)))
 
 (define url:rexp:uchar
   (rexp-alternatives url:char-set:unreserved url:rexp:escape))