[elpa] externals/eev d671913 61/64: Rewrote `ee-code-c-d-rest'.

[Stefan Monnier]

branch: externals/eev
commit d6719130450fea4353876299096f15c030356d89
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    Rewrote `ee-code-c-d-rest'.
---
 ChangeLog   |  4 ++++
 VERSION     |  4 ++--
 eev-code.el | 26 +++++++++++++++-----------
 3 files changed, 21 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 8a3075c..4c64ba7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,6 +12,10 @@
        functionality of `ee-tail-call' into the functions
        `ee-code-brurl-rest' and ee-code-brfile-rest'.
 
+       * eev-code.el (ee-code-c-d-rest): moved the functionality of
+       `ee-tail-call' into the function `ee-code-c-d-rest'.
+       (ee-tail-call2): commented out.
+
        * eev-beginner.el (load-path): uncommented the "(add-to-list
        'load-path default-directory)"
 
diff --git a/VERSION b/VERSION
index 5620afa..993ba0b 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Mar 29 22:48:34 GMT 2019
-Fri Mar 29 19:48:34 -03 2019
+Fri Mar 29 23:08:28 GMT 2019
+Fri Mar 29 20:08:28 -03 2019
diff --git a/eev-code.el b/eev-code.el
index 2395426..8639052 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019mar02
+;; Version:    2019mar29
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-code.el>
@@ -144,14 +144,15 @@ is used by some functions in \"eev-insert.el\".")
 ;; The name "tail call" is misleading - this is recursive,
 ;; but not a tail call in the usual sense.
 
-(defun ee-tail-call2 (fmt c d rest)
-  "An internal function used to support keyword-argument pairs."
-  (cond ((null rest) "")
-       ((keywordp (car rest))
-        (apply (intern (format fmt (car rest)))
-               c d (cdr rest)))
-       (t (error "Wrong rest: %S" rest))))
-
+;; 2019mar29: commented out.
+;; Moved its functionality into `ee-code-c-d-rest'.
+;;(defun ee-tail-call2 (fmt c d rest)
+;;  "An internal function used to support keyword-argument pairs."
+;;  (cond ((null rest) "")
+;;        ((keywordp (car rest))
+;;         (apply (intern (format fmt (car rest)))
+;;                c d (cdr rest)))
+;;        (t (error "Wrong rest: %S" rest))))
 
 
 
@@ -183,9 +184,12 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info 
\"INFO\")"
          (ee-code-c-d-rest c d rest)))
 
 ;; Support for extra arguments
-;;
 (defun   ee-code-c-d-rest (c d rest)
-  (ee-tail-call2 "ee-code-c-d-%S" c d rest))
+  (cond ((null rest) "")
+       ((keywordp (car rest))
+        (apply (intern (format "ee-code-c-d-%S" (car rest)))
+               c d (cdr rest)))
+       (t (error "Wrong rest: %S" rest))))
 (defun find-code-c-d-rest (c d &rest rest)
   (find-estring-elisp (ee-code-c-d-rest c d rest)))