From 6b32e43c3784cb918e32a9a1486bad7b8c153b5d Mon Sep 17 00:00:00 2001
From: Phil Estival <pe@7d.nz>
Date: Fri, 17 Jan 2025 04:41:34 +0100
Subject: [PATCH 09/11] ob-sql: replace call to (intern engine) by the
 previously declared in-engine

TINYCHANGE
---
 lisp/ob-sql.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/ob-sql.el b/lisp/ob-sql.el
index f9a987435..46f10c8e9 100644
--- a/lisp/ob-sql.el
+++ b/lisp/ob-sql.el
@@ -352,7 +352,7 @@ This function is called by `org-babel-execute-src-block'."
 	    (write-file out-file)))

       (let ( ; else run a shell command
-         (command (cl-case (intern engine)
+         (command (cl-case in-engine
                     (dbi (format "dbish --batch %s < %s | sed '%s' > %s"
 				 (or cmdline "")
 				 (org-babel-process-file-name in-file)
@@ -423,7 +423,7 @@ footer=off -F \"\t\"  %s -f %s -o %s %s"
                     (t (user-error "No support for the %s SQL engine" engine)))))
     (with-temp-file in-file
       (insert
-       (pcase (intern engine)
+       (pcase in-engine
 	 (`dbi "/format partbox\n")
          (`oracle "SET PAGESIZE 50000
 SET NEWPAGE 0
@@ -453,7 +453,7 @@ SET COLSEP '|'
 	(progn (insert-file-contents-literally out-file) (buffer-string)))
       (with-temp-buffer
 	(cond
-	 ((memq (intern engine) '(dbi mysql postgresql postgres saphana sqsh vertica))
+	 ((memq in-engine '(dbi mysql postgresql postgres saphana sqsh vertica))
 	  ;; Add header row delimiter after column-names header in first line
 	  (when colnames-p (with-temp-buffer
 	                     (insert-file-contents out-file)
--
2.39.5