From fb6a95d2b3d872ca3a017f082092604c534eda95 Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Thu, 9 Nov 2023 01:21:51 +0100
Subject: [PATCH] Procedure rename

FossilOrigin-Name: 853b723afabaa4d41d2be609795c3a26aae6ef13690cdb285fa2f49ffd46fe02
---
 tests/run.scm      |  4 ++--
 webdriver-impl.scm |  4 ++--
 webdriver.org      | 10 +++++-----
 webdriver.scm      |  2 +-
 4 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/tests/run.scm b/tests/run.scm
index e955699..95dd296 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -26,7 +26,7 @@
 
 ;; [[file:../webdriver.org::wd-session-test][wd-session-test]]
 (test-group "session"
-  (let ((browser (new-WebDriver <Gecko>)))
+  (let ((browser (make-WebDriver <Gecko>)))
     (test "Initial state" #f (slot-value browser 'session-id))
     (test-assert "Session id check" (string? (begin (initialize-session browser) (slot-value browser 'session-id))))
     (test-assert "Session id after termination" (eq? #f (begin (terminate-session browser) (slot-value browser 'session-id))))
@@ -39,7 +39,7 @@
 
 ;; [[file:../webdriver.org::wd-url-test][wd-url-test]]
 (test-group "url"
-  (let ((browser (new-WebDriver <Gecko>)))
+  (let ((browser (make-WebDriver <Gecko>)))
     (test "Initial state" #f (slot-value browser 'session-id))
     (test "Navigating to the first website" "http://info.cern.ch/hypertext/WWW/TheProject.html"
           (begin (initialize-session browser)
diff --git a/webdriver-impl.scm b/webdriver-impl.scm
index 4d9d735..66eec95 100644
--- a/webdriver-impl.scm
+++ b/webdriver-impl.scm
@@ -144,12 +144,12 @@
 
 
 
-;; Main initialization is done by calling the ~new-WebDriver~ procedure with the respective class name and optionally an alist of options.
+;; Main initialization is done by calling the ~make-WebDriver~ procedure with the respective class name and optionally an alist of options.
 
 ;; #+name: webdriver-init
 
 ;; [[file:webdriver.org::webdriver-init][webdriver-init]]
-(define (new-WebDriver browser #!optional options)
+(define (make-WebDriver browser #!optional options)
   (let ((instance (make browser)))
     (launch instance options)
     (sleep 1)
diff --git a/webdriver.org b/webdriver.org
index 1f5abaa..8984372 100644
--- a/webdriver.org
+++ b/webdriver.org
@@ -62,7 +62,7 @@
   (import (scheme base))
   (export <WebDriver>
           <Gecko>
-          new-WebDriver
+          make-WebDriver
           terminate
           initialize-session
           terminate-session
@@ -244,11 +244,11 @@ The parent class provides a handful of methods, but does not implement all of th
   result)
 #+end_src
 
-Main initialization is done by calling the ~new-WebDriver~ procedure with the respective class name and optionally an alist of options.
+Main initialization is done by calling the ~make-WebDriver~ procedure with the respective class name and optionally an alist of options.
 
 #+name: webdriver-init
 #+begin_src scheme :tangle webdriver-impl.scm
-(define (new-WebDriver browser #!optional options)
+(define (make-WebDriver browser #!optional options)
   (let ((instance (make browser)))
     (launch instance options)
     (sleep 1)
@@ -355,7 +355,7 @@ Session management is very simple. There is just one method to initialize a new
 #+begin_src scheme :tangle tests/run.scm :noweb strip-tangle :exports results :post test-post(input=*this*) :results output
 <<prep-geckodriver-test>>
 (test-group "session"
-  (let ((browser (new-WebDriver <Gecko>)))
+  (let ((browser (make-WebDriver <Gecko>)))
     (test "Initial state" #f (slot-value browser 'session-id))
     (test-assert "Session id check" (string? (begin (initialize-session browser) (slot-value browser 'session-id))))
     (test-assert "Session id after termination" (eq? #f (begin (terminate-session browser) (slot-value browser 'session-id))))
@@ -387,7 +387,7 @@ Session management is very simple. There is just one method to initialize a new
 <<prep-geckodriver-test>>
 <<wd-url>>
 (test-group "url"
-  (let ((browser (new-WebDriver <Gecko>)))
+  (let ((browser (make-WebDriver <Gecko>)))
     (test "Initial state" #f (slot-value browser 'session-id))
     (test "Navigating to the first website" "http://info.cern.ch/hypertext/WWW/TheProject.html"
           (begin (initialize-session browser)
diff --git a/webdriver.scm b/webdriver.scm
index 34ef11b..40d0108 100644
--- a/webdriver.scm
+++ b/webdriver.scm
@@ -4,7 +4,7 @@
   (import (scheme base))
   (export <WebDriver>
           <Gecko>
-          new-WebDriver
+          make-WebDriver
           terminate
           initialize-session
           terminate-session