feat: 9.5.9

nanopass/tests/implementation-helpers.ironscheme.sls

@@ -0,0 +1,23 @@
+;;; 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))))))