Changeset 11550 in project for release/3/mat5-lib/trunk/mat5-lib.scm


Ignore:
Timestamp:
08/06/08 14:38:43 (12 years ago)
Author:
Ivan Raikov
Message:

Updates to license text; eliminated use of syntax-case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/mat5-lib/trunk/mat5-lib.scm

    r4857 r11550  
    33;; Definitions and read/write routines for MAT 5.0 binary format.
    44;;
    5 ;; Copyright 2005 Ivan Raikov and the Georgia Institute of Technology
     5;; Copyright 2005-2008 Ivan Raikov and the Georgia Institute of Technology
    66;;
    77;; This program is free software: you can redistribute it and/or
     
    1919;;
    2020
    21 (require-extension syntax-case)
    2221(require-extension iset)
    2322(require-extension srfi-1)
     
    6362                 MAT5:stream-read-data-element           
    6463                 MAT5:write-stream               
    65                  MAT5:stream-write-data-element))
     64                 MAT5:stream-write-data-element)
     65         (inline)
     66         (lambda-lift))
    6667                 
    6768
     
    7071;
    7172;
    72 
    73 (define MAT5:debug-level 0)
    7473
    7574(define (MAT5:warning x . rest)
     
    101100                 (display " " port)
    102101                 (loop (cdr objs)))))))
    103 
    104 (define-syntax  MAT5:debug
    105    (syntax-rules  ()
    106       ((_ level x ...)
    107        (if (>= MAT5:debug-level level)
    108            (print (string-append "MAT5[" (number->string level) "]: ") x ...)))))
    109102
    110103
     
    23612354
    23622355        (else        (MAT5:error "element " data-element " is of unknown type"))))
    2363 
    2364 
    2365 
    2366 ;;
    2367 ;; $Id$
    2368 ;;
    2369 ;;
    2370 ;; $Log$
    2371 ;;
    2372 ;;
    2373 ;;
    2374 
Note: See TracChangeset for help on using the changeset viewer.