Mercurial > repos > rhope

comparison functional.rhope @ 101:f4fc0a98088a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed some bugs that were preventing compiled compiler from working correctly. Need to address memory usage
author Mike Pavone <pavone@retrodev.com>
date Mon, 09 Aug 2010 23:53:20 -0400
parents a34a982ecd32
children
comparison
equal deleted inserted replaced
100:f51c4c17457c 101:f4fc0a98088a
45 } 45 }
46 46
47 _Find[list,pred,cur:loc,not found] 47 _Find[list,pred,cur:loc,not found]
48 { 48 {
49 val <- [list]Index[cur] 49 val <- [list]Index[cur]
50 If[[pred]Call[val]] 50 If[[pred]Call[val,cur]]
51 { 51 {
52 loc <- cur 52 loc <- cur
53 }{ 53 }{
54 ,not found <- [list]Next[cur] 54 ,not found <- [list]Next[cur]
55 { loc,not found <- _Find[list,pred,~] } 55 { loc,not found <- _Find[list,pred,~] }