basis: removing unnecessary method stack effects.

[factor.git] / basis / system-info / macosx / macosx.factor

diff --git a/basis/system-info/macosx/macosx.factor b/basis/system-info/macosx/macosx.factor
index 7f6b5e9aaa35393bcdaad20b4195a381a22423ad..ab8cf8e94240398f333fcc6aa5af4fc0ad4f5a63 100644 (file)
--- a/basis/system-info/macosx/macosx.factor
+++ b/basis/system-info/macosx/macosx.factor
@@ -75,11 +75,11 @@ FUNCTION: int sysctl ( int* name, uint namelen, void* oldp, size_t* oldlenp, voi
 
 : machine ( -- str ) { 6 1 } sysctl-query-string ;
 : model ( -- str ) { 6 2 } sysctl-query-string ;
-M: macosx cpus ( -- n ) { 6 3 } sysctl-query-uint ;
+M: macosx cpus { 6 3 } sysctl-query-uint ;
 : byte-order ( -- n ) { 6 4 } sysctl-query-uint ;
 
 ! Only an int, not large enough. Deprecated.
-! M: macosx physical-mem ( -- n ) { 6 5 } sysctl-query-int ;
+! M: macosx physical-mem { 6 5 } sysctl-query-int ;
 ! : user-mem ( -- n ) { 6 6 } sysctl-query-uint ;
 
 : page-size ( -- n ) { 6 7 } sysctl-query-uint ;
@@ -90,7 +90,7 @@ M: macosx cpus ( -- n ) { 6 3 } sysctl-query-uint ;
 : machine-arch ( -- n ) { 6 12 } sysctl-query-string ;
 : vector-unit ( -- n ) { 6 13 } sysctl-query-uint ;
 : bus-frequency ( -- n ) { 6 14 } sysctl-query-uint ;
-M: macosx cpu-mhz ( -- n ) { 6 15 } sysctl-query-uint ;
+M: macosx cpu-mhz { 6 15 } sysctl-query-uint ;
 : cacheline-size ( -- n ) { 6 16 } sysctl-query-uint ;
 : l1-icache-size ( -- n ) { 6 17 } sysctl-query-uint ;
 : l1-dcache-size ( -- n ) { 6 18 } sysctl-query-uint ;
@@ -99,7 +99,7 @@ M: macosx cpu-mhz ( -- n ) { 6 15 } sysctl-query-uint ;
 : l3-cache-settings ( -- n ) { 6 21 } sysctl-query-uint ;
 : l3-cache-size ( -- n ) { 6 22 } sysctl-query-uint ;
 : tb-frequency ( -- n ) { 6 23 } sysctl-query-uint ;
-M: macosx physical-mem ( -- n ) { 6 24 } sysctl-query-ulonglong ;
+M: macosx physical-mem { 6 24 } sysctl-query-ulonglong ;
 : available-cpus ( -- n ) { 6 25 } sysctl-query-uint ;
 
 M: macosx computer-name { 1 10 } sysctl-query-string "." split1 drop ;