David Krentzlin avatar David Krentzlin committed e18c0d7

fixed wrong exports and tests

Comments (0)

Files changed (2)

    dump-senders
    make-sender
    add-output
-   <context
-   <message
-   <category
    define-output
    find-and-apply-senders
    active-contexts
                          (if ctx (sprintf "~A > " ctx) "")))
 
 
+
  ;; by default we output the category followed by the message
- (define default-output-format (make-parameter '(<context <category <message)))
+(define default-output-format (make-parameter '(<context <category <message)))
 
 
  ;; contexts
 (test-group "categories"
             (test "Expansion: does work"
                   '(and cat5 (or cat1 cat2))
-                  (parameterize ((*categories* (make-hash-table)))
+                  (parameterize ((*defined-categories* (make-hash-table)))
                     (define-category cat3 (or cat1 cat2))
                     (define-category cat4 (and cat5 cat3))
                     (expand-category-spec 'cat4)))
             (test "Expansion: default logical connective"
                   '(and cat5 (and cat1 cat2))
-                  (parameterize ((*categories* (make-hash-table))
-                                 (*default-logical-connective* 'and))
+                  (parameterize ((*defined-categories* (make-hash-table))
+                                 (default-logical-connective 'and))
                     (define-category cat3 (cat1 cat2))
                     (define-category cat4 (and cat5 cat3))
                     (expand-category-spec 'cat4)))
             (test "Expansion: (identity) does work"
                   'cat1
-                  (parameterize ((*categories* (make-hash-table)))
+                  (parameterize ((*defined-categories* (make-hash-table)))
                     (expand-category-spec 'cat1)))
 
 
 (test-group "context"
             (test "push context"
                   (list "test")
-                  (parameterize ((*current-contexts* '()))
+                  (parameterize ((active-contexts '()))
                     (push-context "test")
-                    (*current-contexts*)))
+                    (active-contexts)))
 
             (test "pop context"
                   (list)
-                  (parameterize ((*current-contexts* '()))
+                  (parameterize ((active-contexts '()))
                     (push-context "test")
                     (pop-context)
-                    (*current-contexts*)))
+                    (active-contexts)))
 
             (test "access current context"
                   "test"
-                  (parameterize ((*current-contexts* '()))
+                  (parameterize ((active-contexts '()))
                     (push-context "test")
                     (current-context)))
             
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.