diff options
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index b8fa1f2e..8ca1a18d 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -171,8 +171,8 @@ buildLibOp(op,sig,pred) == --operations OKop \#\sig \conname\pred\comments (K is U or C) nsig := SUBLISLIS(rest $conform,$FormalMapVariableList,sig) pred := SUBLISLIS(rest $conform,$FormalMapVariableList,pred) - nsig := substitute('T,"T$",nsig) --this ancient artifact causes troubles! - pred := substitute('T,"T$",pred) + nsig := substitute("T","T$",nsig) --this ancient artifact causes troubles! + pred := substitute("T","T$",pred) sigpart:= form2LispString ['Mapping,:nsig] predString := (pred = 'T => '""; form2LispString pred) sop := |