Changeset 11052 in project


Ignore:
Timestamp:
06/20/08 12:30:58 (11 years ago)
Author:
felix winkelmann
Message:

ported, but exporting 'all', since I'm too lazy to figure out the indirect imports

Location:
release/4/matchable
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/matchable/matchable.scm

    r10057 r11052  
    2727;; 2006/12/24 - bugfixes
    2828;; 2006/12/01 - non-linear patterns, shared variables in OR, get!/set!
     29
     30
     31
     32(module matchable all
     33
     34  (import scheme chicken)
    2935
    3036;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    667673     (lambda (x e)
    668674       (string->symbol (string-append (symbol->string (cadr x)) "?"))))))
     675 (chicken
     676  (define-syntax syntax-symbol-append-?
     677    (lambda (x r c)
     678      (string->symbol (string-append (symbol->string (cadr x)) "?")))))
    669679 (else
    670680  (define-syntax syntax-symbol-append-?
     
    705715;;       ((_ x sk fk) fk)))))
    706716
     717)
  • release/4/matchable/matchable.setup

    r10057 r11052  
     1(compile -s -O2 -d0 matchable.scm -j matchable)
     2(compile -s -O2 -d0 matchable.import.scm)
     3
    14(install-extension 'matchable
    2  '("matchable.scm")
    3  '((version "2.4.1")
    4    (syntax)))
     5 '("matchable.so" "matchable.import.so")
     6 '((version "2.4.2")))
Note: See TracChangeset for help on using the changeset viewer.