You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
906 B
Scheme
24 lines
906 B
Scheme
;;; 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))))))
|