diff options
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r-- | src/interp/format.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index e19ac004..d7618244 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -646,9 +646,9 @@ application2String(op,argl, linkInfo) == --op='MP =>concat("P",concat(argl.0,argl.1)) op='SEGMENT => null argl => '".." - (null rest argl) or (null first rest argl) => + (null rest argl) or (null second argl) => concat(first argl, '"..") - concat(first argl, concat('"..", first rest argl)) + concat(first argl, concat('"..", second argl)) concat(app2StringWrap(formWrapId op, linkInfo) , concat("_(",concat(tuple2String argl,"_)"))) |