]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/system-info/windows/nt/nt.factor
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...
[factor.git] / extra / system-info / windows / nt / nt.factor
index 5be2dc89e2fbbc96f120901d512f5c58e0c9abaa..3e0cffe71db55aeccd965b842c65547e54e60313 100755 (executable)
@@ -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 +
     [ <byte-array> dup ] keep <uint>
     GetComputerName win32-error=0/f alien>native-string ;