Changeset 15381 in project


Ignore:
Timestamp:
08/09/09 18:25:57 (10 years ago)
Author:
certainty
Message:

renamed enable-checks to enable-whitelisting

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

Legend:

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

    r15340 r15381  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Do Aug  6 20:49:24 2009 (CEST)
     10;; Last-Updated: So Aug  9 18:42:53 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 35
     12;;     Update #: 36
    1313;; URL:
    1414;; Keywords:
     
    6969(define (echo2 . args) args)
    7070
    71 (enable-checks #f)
     71(enable-whitelisting #f)
    7272
    7373
     
    101101      (let ((uri (uri-reference "http://example.com/test3")))
    102102        (parameterize ((dispatch-error (lambda args 'dispatch-error))
    103                        (enable-checks #t))
     103                       (enable-whitelisting #t))
    104104          (dispatch-uri uri))))
    105105
     
    108108      (let ((uri (uri-reference "http://example.com/test-module/test1")))
    109109        (parameterize ((dispatch-error (lambda args 'dispatch-error))
    110                        (enable-checks #t))
     110                       (enable-whitelisting #t))
    111111          (dispatch-uri uri))))
    112112
     
    115115      (let ((uri (uri-reference "http://example.com/test3")))
    116116        (parameterize ((dispatch-error (lambda args 'dispatch-error))
    117                        (enable-checks #t))
     117                       (enable-whitelisting #t))
    118118          (whitelist! '(test3))
    119119          (dispatch-uri uri))))
     
    123123      (let ((uri (uri-reference "http://example.com/test-module/test1")))
    124124        (parameterize ((dispatch-error (lambda args 'dispatch-error))
    125                        (enable-checks #t))
     125                       (enable-whitelisting #t))
    126126          (whitelist! '((module test-module)))
    127127          (dispatch-uri uri))))
  • release/4/uri-dispatch/trunk/uri-dispatch.scm

    r15342 r15381  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Do Aug  6 21:13:15 2009 (CEST)
     10;; Last-Updated: So Aug  9 18:42:15 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 136
     12;;     Update #: 139
    1313;; URL:
    1414;; Keywords:
     
    5858(module uri-dispatch
    5959  (dispatch-error dispatch-environment
    60    enable-checks  whitelist! default-dispatch-target
     60   enable-whitelisting  whitelist! default-dispatch-target
    6161   dispatch-uri)
    6262  (import scheme chicken)
     
    7070  (define module-whitelist  (list))
    7171  (define dispatch-environment interaction-environment)
    72   (define enable-checks (make-parameter #f))
     72  (define enable-whitelisting (make-parameter #f))
    7373  (define default-dispatch-target (make-parameter #f))
    7474
     
    103103 
    104104  (define (whitelisted? symbol mod)   
    105     (or (not (enable-checks))
     105    (or (not (enable-whitelisting))
    106106        (and (not mod) (member symbol procedure-whitelist))
    107107        (and mod (member mod module-whitelist))))
Note: See TracChangeset for help on using the changeset viewer.