require'general/misc/prompt'
prompt
3 : 0
'' prompt y
:
if. IFQT do.
wd 'sm prompt ',y,x
inp=. 1!:1 ] 1
len=. #y
(len * y -: len {. inp) }. inp
else.
y 1!:2 (IFWIN+.IFJHS+.IFIOS) { 4 2
1!:1 ] 1
end.
)
I suspect the line should be
wd 'sm prompt *',y,x
can you test and fix it in the svn repos? Thanks.
Вс, 28 июн 2015, Raul Miller написал(а):
> Under jqt:
> $prompt ' example: '
> example: abc
> 0
>
> In other words: leading spaces in the right argument to prompt prevent
> it from working properly under jqt.
>
> FYI,
>
> --
> Raul
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
gpg --keyserver subkeys.pgp.net --armor --export 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
