X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fsystem-info%2Fwindows%2Fnt%2Fnt.factor;h=3e0cffe71db55aeccd965b842c65547e54e60313;hp=5be2dc89e2fbbc96f120901d512f5c58e0c9abaa;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/extra/system-info/windows/nt/nt.factor b/extra/system-info/windows/nt/nt.factor index 5be2dc89e2..3e0cffe71d 100755 --- a/extra/system-info/windows/nt/nt.factor +++ b/extra/system-info/windows/nt/nt.factor @@ -36,7 +36,7 @@ M: winnt available-virtual-mem ( -- n ) memory-status MEMORYSTATUSEX-ullAvailVirtual ; : computer-name ( -- string ) - MAX_COMPUTERNAME_LENGTH 1+ + MAX_COMPUTERNAME_LENGTH 1 + [ dup ] keep GetComputerName win32-error=0/f alien>native-string ;