From: Chris Hanson Date: Wed, 17 Jan 2007 21:01:59 +0000 (+0000) Subject: Fix another thinko. X-Git-Tag: 20090517-FFI~774 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=03a074a70e1435cecb93afd7f387de4d658934bc;p=mit-scheme.git Fix another thinko. --- diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm index 5188b825b..865aec9f6 100644 --- a/v7/src/runtime/url.scm +++ b/v7/src/runtime/url.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: url.scm,v 1.50 2007/01/17 16:04:37 cph Exp $ +$Id: url.scm,v 1.51 2007/01/17 21:01:59 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -369,7 +369,9 @@ USA. (default-object? start) (default-object? end) (hash-table/get interned-uris string #f)) - (*parse-string parser string start end) + (let ((v (*parse-string parser string start end))) + (and v + (vector-ref v 0))) (error:bad-range-argument string caller))) (define parse-uri