diff options
Diffstat (limited to 'src/interp/nrunopt.boot')
-rw-r--r-- | src/interp/nrunopt.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot index 5ca437b3..d4a05010 100644 --- a/src/interp/nrunopt.boot +++ b/src/interp/nrunopt.boot @@ -430,7 +430,7 @@ listOfCategoryEntries l == pp l listOfCategoryEntriesIf(pred,conseq,alternate) == - alternate in '(noBranch NIL) => + alternate in '(%noBranch NIL) => conseq is ['IF,p,c,a] => listOfCategoryEntriesIf(makePrefixForm([pred,p],'AND),c,a) [fn for x in listOfEntries conseq] where fn() == x is ['IF,a,b] => ['IF,makePrefixForm([pred,a],'AND),b] |