Changeset 15221 in project


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

replaced uri? with uri-reference?

Location:
release/4/uri-dispatch/trunk
Files:
2 edited

Legend:

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

    r15218 r15221  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Mi Jul 15 20:42:39 2009 (CEST)
     10;; Last-Updated: Mi Jul 15 20:52:05 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 31
     12;;     Update #: 33
    1313;; URL:
    1414;; Keywords:
     
    2929;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    3030;;
    31 ;; Copyright (c) <year> David Krentzlin <david@lisp-unleashed.de>
     31;; Copyright (c) <2009> David Krentzlin <david@lisp-unleashed.de>
    3232;;
    3333;;   Permission is hereby granted, free of charge, to any person
     
    5555;;
    5656;;; Code:
    57 (use test uri-common)
    58 (load "../uri-dispatch.scm")
     57(use test uri-common uri-dispatch)
    5958(import uri-dispatch)
    6059
  • 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.