crook

cmsc430 · Nov 25, 2024 · 5cb072e · 5cb072e
1 parent 8b6393c
commit 5cb072e
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 8 deletions.
diff --git a/iniquity-plus/interp-io.rkt b/iniquity-plus/interp-io.rkt
@@ -5,8 +5,12 @@
 ;; Interpret p with given string as input,
 ;; return value and collected output as string
 (define (interp/io p input)
-  (parameterize ((current-output-port (open-output-string))
-                 (current-input-port  (open-input-string input)))
-      (cons (interp p)
-            (get-output-string (current-output-port)))))
+  (define result (box #f))
+  (define output
+    (with-input-from-string input
+      (λ ()
+        (with-output-to-string
+          (λ ()
+            (set-box! result (interp p)))))))
+  (cons (unbox result) output))
 
diff --git a/knock-plus/interp-io.rkt b/knock-plus/interp-io.rkt
@@ -5,8 +5,12 @@
 ;; Interpret p with given string as input,
 ;; return value and collected output as string
 (define (interp/io p input)
-  (parameterize ((current-output-port (open-output-string))
-                 (current-input-port  (open-input-string input)))
-      (cons (interp p)
-            (get-output-string (current-output-port)))))
+  (define result (box #f))
+  (define output
+    (with-input-from-string input
+      (λ ()
+        (with-output-to-string
+          (λ ()
+            (set-box! result (interp p)))))))
+  (cons (unbox result) output))