Changeset 20656 in project


Ignore:
Timestamp:
10/05/10 15:08:28 (9 years ago)
Author:
Ivan Raikov
Message:

formular: update to reflect new rb-tree API

Location:
release/4/formular/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • release/4/formular/trunk/form2txt.scm

    r19067 r20656  
    7575          ((string-ci= x y) 0)
    7676          (else 1)))
    77   (let* ((tree    (make-rb-tree s<=))
     77  (let* ((tree    (make-ephemeral-map s<=))
    7878         (update! (tree 'put!)))
    7979    (for-each (lambda (x) (let ((k (car x))
  • release/4/formular/trunk/form2wiki.scm

    r19067 r20656  
    5252          ((string-ci= x y) 0)
    5353          (else 1)))
    54   (let* ((tree    (make-rb-tree s<=))
     54  (let* ((tree    (make-ephemeral-map s<=))
    5555         (update! (tree 'put!)))
    5656    (for-each (lambda (x)
  • release/4/formular/trunk/formular.meta

    r19567 r20656  
    1818 ; A list of eggs formular depends on.
    1919
    20  (needs typeclass input-classes rb-tree abnf mbox internet-message ssax getopt-long fmt byte-blob-stream)
     20 (needs typeclass input-classes (rb-tree 4.0) abnf mbox internet-message ssax getopt-long fmt byte-blob-stream)
    2121
    2222 (doc-from-wiki)
  • release/4/formular/trunk/formular.scm

    r19067 r20656  
    148148
    149149    (lambda (messages)
    150       (let loop ((tree (make-rb-tree s<=)) (msgs messages))
     150      (let loop ((tree (make-persistent-map s<=)) (msgs messages))
    151151        (let ((lookup (tree 'get))
    152152              (update (tree 'put)))
  • release/4/formular/trunk/formular.setup

    r19568 r20656  
    33(define (dynld-name fn)         
    44  (make-pathname #f fn ##sys#load-dynamic-extension))   
     5
     6(required-extension-version 'rb-tree 4.0)
    57
    68(compile -O -d2 -s formular.scm -j formular)
     
    2123
    2224  ;; Assoc list with properties for your extension:
    23   '((version 3.2)
     25  '((version 3.3)
    2426    (documentation "formular.html")
    2527    ))
     
    3133 `("form2txt" )
    3234 
    33  '((version 3.2))
     35 '((version 3.3))
    3436 )
    3537
     
    4042 `("form2wiki" )
    4143 
    42  '((version 3.2))
     44 '((version 3.3))
    4345 )
    4446
Note: See TracChangeset for help on using the changeset viewer.