Changeset 15224 in project
- Timestamp:
- 07/15/09 21:34:07 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/uri-dispatch/trunk/uri-dispatch.scm
r15221 r15224 8 8 ;; Version: $Id$ 9 9 ;; Version: 10 ;; Last-Updated: Mi Jul 15 21: 34:532009 (CEST)10 ;; Last-Updated: Mi Jul 15 21:49:20 2009 (CEST) 11 11 ;; By: David Krentzlin <david@lisp-unleashed.de> 12 ;; Update #: 9 112 ;; Update #: 96 13 13 ;; URL: 14 14 ;; Keywords: … … 84 84 (if (equal? (car path) "") 85 85 (apply (or (default-dispatch-target) (dispatch-error)) '()) 86 (apply (or (handler-ref (string->symbol (car path))) 87 (dispatch-error)) 88 (cdr path)))) 86 (let ((handler (handler-ref (string->symbol (car path))))) 87 (if handler 88 (handler (cdr path))) 89 (apply (dispatch-error) path)))) 89 90 (else 90 91 (let ((mod/proc (handler-ref (string->symbol (string-append (car path) "#" (cadr path))) (string->symbol (car path))))) 91 92 (if mod/proc 92 93 (apply mod/proc (cddr path)) 93 (apply (or (handler-ref (string->symbol (car path))) 94 (dispatch-error)) 95 (cdr path)))))))) 94 (let ((handler (handler-ref (string->symbol (car path))))) 95 (if handler 96 (handler (cdr path)) 97 (apply (dispatch-error) path))))))))) 96 98 97 99 (define (handler-ref symbol #!optional (mod #f))
Note: See TracChangeset
for help on using the changeset viewer.