Ignore:
Timestamp:
07/15/09 21:19:32 (12 years ago)
Author:
certainty
Message:

replaced uri? with uri-reference?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-dispatch/trunk/uri-dispatch.scm

    r15219 r15221  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Mi Jul 15 20:44:37 2009 (CEST)
     10;; Last-Updated: Mi Jul 15 21:34:53 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 88
     12;;     Update #: 91
    1313;; URL:
    1414;; Keywords:
     
    6262  (import scheme chicken)
    6363  (require-library uri-common environments srfi-13)
    64   (import (only uri-common uri? uri-path)
     64  (import (only uri-common uri-reference? uri-path)
    6565          (only srfi-13 string-append)
    6666          (only environments environment-ref environment-has-binding?))
     
    7474
    7575  (define (dispatch-uri uri)
    76     (unless (uri? uri)
     76    (unless (uri-reference? uri)
    7777      (error "Supplied argument is must be an uri"))
    7878    (let ((path (cdr (uri-path uri))))
Note: See TracChangeset for help on using the changeset viewer.