picolisp

commit 5399605ecb1f06940be01cee2ab50d7655d1849b
parent ce8ffcd527d204d23fecef35736eaa06b38d9c52
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 27 Oct 2011 17:51:48 +0200

Minor simplifications
Diffstat:
M
doc/refE.html
 | 
19
+++++++++----------
M
doc/refR.html
 | 
19
+++++++++----------

2 files changed, 18 insertions(+), 20 deletions(-)
diff --git a/doc/refE.html b/doc/refE.html
@@ -46,16 +46,15 @@ href="ref.html#external">external symbols</a></code>.
 : (setq *Ext  # Define extension functions
    (mapcar
       '((@Host @Ext)
-         (let Sock NIL
-            (cons @Ext
-               (curry (@Host @Ext Sock) (Obj)
-                  (when (or Sock (setq Sock (connect @Host 4040)))
-                     (ext @Ext
-                        (out Sock (pr (cons 'qsym Obj)))
-                        (prog1 (in Sock (rd))
-                           (unless @
-                              (close Sock)
-                              (off Sock) ) ) ) ) ) ) ) )
+         (cons @Ext
+            (curry (@Host @Ext (Sock)) (Obj)
+               (when (or Sock (setq Sock (connect @Host 4040)))
+                  (ext @Ext
+                     (out Sock (pr (cons 'qsym Obj)))
+                     (prog1 (in Sock (rd))
+                        (unless @
+                           (close Sock)
+                           (off Sock) ) ) ) ) ) ) )
       '("10.10.12.1" "10.10.12.2" "10.10.12.3" "10.10.12.4")
       (20 40 60 80) ) )
 
diff --git a/doc/refR.html b/doc/refR.html
@@ -407,16 +407,15 @@ href="refD.html#db/3">db/3</a></code>.
 (setq *Ext           # Set up external offsets
    (mapcar
       '((@Host @Ext)
-         (let Sock NIL
-            (cons @Ext
-               (curry (@Host @Ext Sock) (Obj)
-                  (when (or Sock (setq Sock (connect @Host 4040)))
-                     (ext @Ext
-                        (out Sock (pr (cons 'qsym Obj)))
-                        (prog1 (in Sock (rd))
-                           (unless @
-                              (close Sock)
-                              (off Sock) ) ) ) ) ) ) ) )
+         (cons @Ext
+            (curry (@Host @Ext (Sock)) (Obj)
+               (when (or Sock (setq Sock (connect @Host 4040)))
+                  (ext @Ext
+                     (out Sock (pr (cons 'qsym Obj)))
+                     (prog1 (in Sock (rd))
+                        (unless @
+                           (close Sock)
+                           (off Sock) ) ) ) ) ) ) )
       '("localhost")
       '(20) ) )