From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Sep 2008 07:23:49 +0000 (+0000)
Subject: Fix thinko in PARSER:HOSTPORT.
X-Git-Tag: 20090517-FFI~166
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00f459d66b73fe71d9770f24b1761f83cfe1cb47;p=mit-scheme.git

Fix thinko in PARSER:HOSTPORT.
---

diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm
index 730ef6115..79f03bab3 100644
--- a/v7/src/runtime/url.scm
+++ b/v7/src/runtime/url.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: url.scm,v 1.56 2008/08/27 04:58:09 cph Exp $
+$Id: url.scm,v 1.57 2008/09/09 07:23:49 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -465,10 +465,8 @@ USA.
   (*parser
    (seq (map uri-string-downcase (match matcher:host))
 	(alt (seq ":"
-		  (map (lambda (s)
-			 (and (fix:> (string-length s) 0)
-			      (string->number s)))
-		       (match (* (char-set char-set:uri-digit)))))
+		  (map string->number
+		       (match (+ (char-set char-set:uri-digit)))))
 	     (values #f)))))
 
 ;; This is a kludge to work around fact that STRING-DOWNCASE only