picolisp

commit a51a0593673e0b5c0a4781647faeaf9ebcdd66f2
parent d3efbaf5df9781cf39e5fe144c39aeedbd646994
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 21 Nov 2011 13:00:53 +0100

Minor changes in blob handling
Diffstat:
M
lib/db.l
 | 
15
++++++++-------
M
lib/form.l
 | 
6
+++---

2 files changed, 11 insertions(+), 10 deletions(-)
diff --git a/lib/db.l b/lib/db.l
@@ -1,4 +1,4 @@
-# 13jul11abu
+# 21nov11abu
 # (c) Software Lab. Alexander Burger
 
 # *Dbs *Jnl *Blob upd
@@ -839,14 +839,15 @@
          (commit 'upd) ) ) )
 
 (de blob! (Obj Var File)
-   (and *Jnl (blob+ Obj Var))
-   (put!> Obj Var File) )
+   (put!> Obj Var File)
+   (blob+ Obj Var) )
 
 (de blob+ (Obj Var)
-   (chdir *Blob
-      (call 'ln "-sf"
-         (pack (glue "/" (chop Obj)) "." Var)
-         (pack (name Obj) "." Var) ) ) )
+   (when *Jnl
+      (chdir *Blob
+         (call 'ln "-sf"
+            (pack (glue "/" (chop Obj)) "." Var)
+            (pack (name Obj) "." Var) ) ) ) )
 
 (dm T @
    (while (args)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 08sep11abu
+# 21nov11abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -1901,9 +1901,9 @@
       (let? Obj (eval (: erObj))
          (protect
             (when (put!> Obj (: erVar) (bool Val))
-               (and *Jnl (blob+ Obj (: erVar)))
                (out (blob Obj (: erVar))
-                  (prin (=: org Val)) ) ) ) ) )
+                  (prin (=: org Val)) )
+               (blob+ Obj (: erVar)) ) ) ) )
    (super Val Dn) )
 
 (dm upd> ()