racket-binaryen/exports.rkt at main · pmatos/racket-binaryen · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#lang racket/base
;; ---------------------------------------------------------------------------------------------------

(require "private/binaryen-ffi.rkt"
         "modules.rkt"
         racket/contract)

(provide
 module-export-function)

;; ---------------------------------------------------------------------------------------------------

(struct export (ref))

(define/contract (module-export-function internal external
                                         #:module [mod (current-module)])
  ((string? string?) (#:module module?) . ->* . export?)
  (export
   (BinaryenAddFunctionExport (module-ref mod) internal external)))


;; ---------------------------------------------------------------------------------------------------

(module+ test

  (require rackunit)

  (test-case "pass"
    (check-true #true)))