picolisp

commit 629b586ab011b9b4801f8eaa7f4936c98327fbb2
parent c6a9ba73bb9aabe6d0a0c6206390deb0030c35d4
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  4 Mar 2013 18:38:18 +0100

dto.
Diffstat:
M
lib/sq.l
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/lib/sq.l b/lib/sq.l
@@ -52,6 +52,7 @@
                                  ((or (num? Val) (ext? Val)) 'same)
                                  ((=T Val) 'bool)
                                  ((isa '(+IdxFold) (get Cls Var)) 'part)
+                                 ((isa '(+Fold +Idx) (get Cls Var)) 'part)
                                  ((isa '+Fold (get Cls Var)) 'fold)
                                  ((isa '+Sn (get Cls Var)) 'tolr)
                                  (T 'head) )