diff options
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r-- | src/interp/format.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index 252eb860..64414ea6 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -171,6 +171,10 @@ substInOrder(alist,x) == x reportOpSymbol op1 == + -- Don't forget that "^" is another name for "**" + if op1 = "^" then + sayMessage ['" ",op1, '" is another name for", :bright '"**"] + op1 := "**" op := (STRINGP op1 => INTERN op1; op1) modemaps := getAllModemapsFromDatabase(op,nil) null modemaps => |