picolisp

commit a89387c0494987d6a043824a2c72bc4a0dfd546a
parent 858a7493ece9db00ea6d7b00deaea5c9b2280553
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 22 Mar 2012 15:19:55 +0100

Minor: Handle (+Fold +Idx) with 'part'
Diffstat:
M
lib/sq.l
 | 
3
++-

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