← Back to branch summary

~ubuntu-branches/ubuntu/wily/picolisp/wily-proposed

« back to all changes in this revision

Viewing changes to lib/pilog.l

  • Committer: Package Import Robot
  • Author(s): Kan-Ru Chen (陳侃如)
  • Date: 2015-02-06 00:19:20 UTC
  • mfrom: (1.2.2)
  • Revision ID: package-import@ubuntu.com-20150206001920-ug3fakmqpq9apw5o
Tags: 3.1.9.7-1
* New upstream release
* Build *.jar from source
* Do not install doc/{db,utf8} as requested by upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/pilog.l
1
 
# 01dec14abu
 
1
# 21jan15abu
2
2
# (c) Software Lab. Alexander Burger
3
3
 
4
4
# *Rule
177
177
   (let (Tree (tree Var Cls Hook)  Rel (get Cls Var))
178
178
      (when (find '((B) (isa '+index B)) (get Rel 'bag))
179
179
         (setq Rel @) )
180
 
      (when (isa '+Fold Rel)
 
180
      (when (or (isa '+Fold Rel) (isa '+IdxFold Rel))
181
181
         (setq Val (fold Val)) )
182
182
      (cond
183
183
         ((pair Val)