Changeset 14624 in project


Ignore:
Timestamp:
05/14/09 06:40:28 (10 years ago)
Author:
Alex Shinn
Message:

mistie for chicken 4

Location:
release/4/mistie
Files:
2 edited
1 copied

Legend:

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

    r13243 r14624  
    22;Nov 18, 1999
    33
    4 (use srfi-1 utils)
     4(module mistie *
    55
    6 (declare (run-time-macros))
     6(import scheme chicken)
     7(use extras utils files srfi-1)
     8
     9;;(declare (run-time-macros))
    710
    811(define mistie-read-ctl-seq
     
    6366(define mistie-lookup-char
    6467  (lambda (c)
    65     (ormap
     68    (any
    6669      (lambda (f)
    67         (ormap
     70        (any
    6871          (lambda (b)
    6972            (and ((car b) c) (cdr b)))
     
    7376(define mistie-lookup-ctl-seq
    7477  (lambda (x)
    75     (ormap
     78    (any
    7679      (lambda (f)
    7780        (let ((b (assv x (mistie-frame-ctl-seqs f))))
     
    8588;
    8689
    87 (define-macro mistie-call-maybe
    88   (lambda (proc . args)
    89     `(if (##sys#symbol-has-toplevel-binding? ',proc)
    90          (,proc ,@args))))
     90(define-syntax mistie-call-maybe
     91  (er-macro-transformer
     92   (lambda (expr rename compare)
     93     (let ((proc (cadr expr))
     94           (args (cddr expr)))
     95       `(if (##sys#symbol-has-toplevel-binding? ',proc)
     96            (,proc ,@args))))))
    9197
    9298;
     
    160166               (error "can not find file" f) ) ) )
    161167   fs) )
     168
     169)
  • release/4/mistie/mistie.setup

    r13243 r14624  
    1 (compile -s -O2 -d1 mistie.scm)
     1
     2(compile -s -O2 -d1 -j mistie mistie.scm)
     3(compile -s -O2 -d1 mistie.import.scm)
     4
    25(install-extension
    36 'mistie
    4  '("mistie.so"
     7 '("mistie.so"
     8   "mistie.import.so"
    59   "basic.mistie"
    610   "footnote.mistie"
     
    1115   "xref.mistie"
    1216   "mistie.html")
    13  '((version 1.1)))
     17 '((version 1.2)))
Note: See TracChangeset for help on using the changeset viewer.