fix: README -> README.md
This commit is contained in:
parent
43e68af625
commit
99b0a6292c
756 changed files with 323753 additions and 71 deletions
19
ta6ob/nanopass/tests/implementation-helpers.ikarus.ss
Normal file
19
ta6ob/nanopass/tests/implementation-helpers.ikarus.ss
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
;;; Copyright (c) 2000-2015 Dipanwita Sarkar, Andrew W. Keep, R. Kent Dybvig, Oscar Waddell
|
||||
;;; See the accompanying file Copyright for details
|
||||
|
||||
(library (tests implementation-helpers)
|
||||
(export time printf system interpret pretty-print format)
|
||||
(import (ikarus))
|
||||
|
||||
(library
|
||||
(nanopass testing-environment)
|
||||
(export not < <= = boolean? char? eq? integer? null? pair? procedure?
|
||||
vector? zero? * + - add1 car cdr char->integer cons make-vector
|
||||
quotient remainder sub1 vector vector-length vector-ref void
|
||||
set-car! set-cdr! vector-set! quote set! if begin lambda let
|
||||
letrec)
|
||||
(import (rnrs) (rnrs mutable-pairs) (ikarus)))
|
||||
|
||||
(define interpret
|
||||
(lambda (src)
|
||||
(eval src (environment '(nanopass testing-environment))))))
|
||||
Reference in a new issue