diff options
Diffstat (limited to 'src/interp/i-util.boot')
| -rw-r--r-- | src/interp/i-util.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index 7bd3d8fe..634ea05d 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -68,13 +68,13 @@ MKPROMPT() == $inputPromptType = 'none => '"" $inputPromptType = 'plain => '"-> " $inputPromptType = 'step => - strconc('"(",STRINGIMAGE $IOindex,'") -> ") + strconc('"(",toString $IOindex,'") -> ") $inputPromptType = 'frame => strconc(STRINGIMAGE $interpreterFrameName, - '" (",STRINGIMAGE $IOindex,'") -> ") + '" (",toString $IOindex,'") -> ") strconc(STRINGIMAGE $interpreterFrameName, '" [", subString(CURRENTTIME(),8),'"] [", - STRINGIMAGE $IOindex, '"] -> ") + toString $IOindex, '"] -> ") printPrompt(flush? == false) == |