picolisp

commit 0e2c1d8fd8b8b6349c528fefe6e754699774105b
parent 84da662f63eb7265724278396b740a9aa2822a84
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 14 Jun 2012 17:49:40 +0200

Generalized 'dbHint' -> 'queryHint'
Diffstat:
M
lib/form.l
 | 
17
++++++++---------

1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 07mar12abu
+# 13jun12abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -561,19 +561,18 @@
 (dm hint> (Str)
    ((: hint) (extra Str)) )
 
-(de dbHint (Str Var Cls Hook)
+(de queryHint (Var CL)
    (make
-      (for
-         (Q
-            (goal
-               (cons
-                  (list 'db Var Cls Hook Str '@@) ) )
-            (prove Q) )
+      (for (Q (goal CL) (prove Q))
          (let V (get (asoq '@@ @) -1 Var)
             (unless (member V (made))
                (link V) ) )
          (T (nth (made) 24)) ) ) )
 
+(de dbHint (Str Var Cls Hook)
+   (queryHint Var
+      (cons (list 'db Var Cls Hook Str '@@)) ) )
+
 
 (class +Hint1 +hint)
 # hint
@@ -2134,7 +2133,7 @@
    (while
       (and
          (> (: ofs) (- (length (: data)) (max (: rows) (: iniR))))
-         (get (prove (: query)) '@@) )
+         (; (prove (: query)) @@) )
       (=: data (conc (: data) (cons @))) )
    (super) )