Changeset 15342 in project


Ignore:
Timestamp:
08/06/09 20:55:24 (10 years ago)
Author:
certainty
Message:

fixed handling of default-targets. removed extras from imports

File:
1 edited

Legend:

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

    r15341 r15342  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Do Aug  6 21:09:25 2009 (CEST)
     10;; Last-Updated: Do Aug  6 21:13:15 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 131
     12;;     Update #: 136
    1313;; URL:
    1414;; Keywords:
     
    6161   dispatch-uri)
    6262  (import scheme chicken)
    63   (require-library uri-common environments srfi-13 extras)
    64   (import extras
    65           (only uri-common uri-reference? uri-path)
     63  (require-library uri-common environments srfi-13)
     64  (import (only uri-common uri-reference? uri-path)
    6665          (only srfi-13 string-append)
    6766          (only environments environment-ref environment-has-binding?))
     
    7271  (define dispatch-environment interaction-environment)
    7372  (define enable-checks (make-parameter #f))
    74   (define default-dispatch-target (make-parameter (lambda args #f)))
     73  (define default-dispatch-target (make-parameter #f))
    7574
    7675  (define (dispatch-uri uri)
Note: See TracChangeset for help on using the changeset viewer.