Changeset 27090 in project


Ignore:
Timestamp:
07/21/12 17:20:16 (7 years ago)
Author:
Ivan Raikov
Message:

varsubst: added subst-remove procedure

Location:
release/4/varsubst/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/varsubst/trunk/varsubst.meta

    r23287 r27090  
    1616 (category data)
    1717
    18  (doc-from-wiki)
    19 
    2018 (author "Ivan Raikov")
    2119
  • release/4/varsubst/trunk/varsubst.scm

    r17918 r27090  
    33;; Generalized variable substitution semantics.
    44;;
    5 ;; Copyright 2008-2009 Ivan Raikov and the Okinawa Institute of Science and Technology.
     5;; Copyright 2008-2012 Ivan Raikov and the Okinawa Institute of Science and Technology.
    66;;
    77;; This program is free software: you can redistribute it and/or
     
    2525   (subst? subst-empty subst-empty?
    2626           subst-includes? subst-lookup subst-extend
    27            subst-map subst-compose
     27           subst-remove subst-map subst-compose
    2828           subst-driver)
    2929
     
    5050  (and (subst? subst)
    5151       (map (lambda (p) (list (car p) (proc (cadr p)))) subst)))
     52
     53(define (subst-remove k subst)
     54  (and (subst? subst)
     55       (filter (lambda (p) (not (equal? (car p) k))) subst)))
    5256
    5357;; compose a new substitution and an existing substitution environment
  • release/4/varsubst/trunk/varsubst.setup

    r14600 r27090  
    44  (make-pathname #f fn ##sys#load-dynamic-extension))   
    55
    6 (compile -d2 -O -s varsubst.scm -j varsubst)
    7 (compile -d2 -O -s varsubst.import.scm)
     6(compile -d0 -O2 -s varsubst.scm -j varsubst)
     7(compile -d0 -O2 -s varsubst.import.scm)
    88
    99
     
    1717
    1818  ; Assoc list with properties for your extension:
    19   `((version 1.2)
    20     (documentation "varsubst.html")))
     19  `((version 1.3)
     20    ))
Note: See TracChangeset for help on using the changeset viewer.