diff options
Diffstat (limited to 'src/interp/mark.boot')
| -rw-r--r-- | src/interp/mark.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/mark.boot b/src/interp/mark.boot index 2f8849fa..cd7997d4 100644 --- a/src/interp/mark.boot +++ b/src/interp/mark.boot @@ -1469,7 +1469,7 @@ buildNewDefinition(op,theSig,formPredAlist) == theAlist := [[pred, first form, :theArgl] for [pred,:form] in alist] theNils := [nil for x in theForm] thePred := - member(outerPred, '(T (QUOTE T))) => nil + member(outerPred, '(T %true)) => nil outerPred def := ['DEF, theForm, theSig, theNils, ifize theAlist] value := |