From 025bb024ae4b586dc721e3d2e3471fbea5f8cc81 Mon Sep 17 00:00:00 2001 From: Nikita Domnitskii Date: Thu, 14 Mar 2024 17:11:23 +0600 Subject: [PATCH] eval-string: set port column to column, not line * module/ice-9/eval-string.scm: set column to column, not line. --- module/ice-9/eval-string.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/ice-9/eval-string.scm b/module/ice-9/eval-string.scm index ea0f17777..9cac03632 100644 --- a/module/ice-9/eval-string.scm +++ b/module/ice-9/eval-string.scm @@ -81,7 +81,7 @@ (if line (set-port-line! port line)) (if column - (set-port-column! port line)) + (set-port-column! port column)) (if (or compile? (not (language-evaluator lang))) ((load-thunk-from-memory