picolisp

commit c6a9ba73bb9aabe6d0a0c6206390deb0030c35d4
parent cb57e30aba0d10a1ad1b04206355a09e01d61db2
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  4 Mar 2013 17:13:58 +0100

... and also in "lib/sq.l"
Diffstat:
M
lib/sq.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/sq.l b/lib/sq.l
@@ -1,4 +1,4 @@
-# 22mar12abu
+# 04mar13abu
 # (c) Software Lab. Alexander Burger
 
 # (select [var ..] cls [hook|T] [var val ..])
@@ -51,7 +51,7 @@
                                  ((pair Val) 'range)
                                  ((or (num? Val) (ext? Val)) 'same)
                                  ((=T Val) 'bool)
-                                 ((isa '(+Fold +Idx) (get Cls Var)) 'part)
+                                 ((isa '(+IdxFold) (get Cls Var)) 'part)
                                  ((isa '+Fold (get Cls Var)) 'fold)
                                  ((isa '+Sn (get Cls Var)) 'tolr)
                                  (T 'head) )