Changeset 14411 in project for release/4/mpi/trunk/msgs.scm


Ignore:
Timestamp:
04/24/09 07:35:08 (11 years ago)
Author:
Ivan Raikov
Message:

mpi ported to Chicken 4

Location:
release/4/mpi
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/mpi/trunk/msgs.scm

    r7296 r14411  
    44;; Leroy.
    55;;
    6 ;; Copyright 2007 Ivan Raikov and the Okinawa Institute of Science and Technology
     6;; Copyright 2007-2009 Ivan Raikov and the Okinawa Institute of Science and Technology
    77;;
    88;; This program is free software: you can redistribute it and/or
     
    554554(define MPI:receive-bytevector (make-receive make-blob MPI_receive_bytevector))
    555555
    556 (define-macro (define-srfi4-receive type)
    557   (let ((makev   (string->symbol (string-append "make-" (symbol->string type) "vector")))
    558         (recv    (string->symbol (string-append "MPI_receive_" (symbol->string type) "vector")))
    559         (name    (string->symbol (string-append "MPI:receive-" (symbol->string type) "vector"))))
    560   `(define ,name (make-receive ,makev ,recv))))
     556(define-syntax define-srfi4-receive
     557  (lambda (x r c)
     558    (let* ((type    (cadr x))
     559           (%define (r 'define))
     560           (makev   (string->symbol (string-append "make-" (symbol->string type) "vector")))
     561           (recv    (string->symbol (string-append "MPI_receive_" (symbol->string type) "vector")))
     562           (name    (string->symbol (string-append "MPI:receive-" (symbol->string type) "vector"))))
     563       `(,%define ,name (make-receive ,makev ,recv)))))
    561564
    562565(define-srfi4-receive s8)
Note: See TracChangeset for help on using the changeset viewer.