24 lines
906 B
Text
24 lines
906 B
Text
|
;;; 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 (ironscheme))
|
||
|
|
|
||
|
|
;; this seems to be only used for a pass not enabled. not sure how to use...
|
||
|
|
(define (system . args) #f)
|
||
|
|
|
||
|
|
(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) (ironscheme)))
|
||
|
|
|
||
|
|
|
||
|
|
(define interpret
|
||
|
|
(lambda (src)
|
||
|
|
(eval src (environment '(nanopass testing-environment))))))
|