diff options
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index a395241a..0e4b2705 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -953,7 +953,10 @@ numOfOccurencesOf(x,y) == fn(x,y,n) == null y => 0 x=y => n+1 - y isnt [.,:.] => n + atomic? y => n + symbol? x and abstraction? y => + symbolMember?(x,y.absParms) => n + fn(x,y.absBody,n) fn(x,first y,n)+fn(x,rest y,n) compilerMessage(msg,args) == |