[Guile-commits] 01/03: eval-string: set port column to column, not line

[Rob Browning]

rlb pushed a commit to branch main
in repository guile.

commit 025bb024ae4b586dc721e3d2e3471fbea5f8cc81
Author: Nikita Domnitskii <nikita@domnitskii.me>
AuthorDate: Thu Mar 14 17:11:23 2024 +0600

    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