Updating code for make and fry changes

[factor.git] / basis / windows / dinput / constants / constants.factor

diff --git a/basis/windows/dinput/constants/constants.factor b/basis/windows/dinput/constants/constants.factor
index 6c55ff0e67cbfbb7f89e61fbcc8334d77853ca2f..182c17430ff8cbbe50873814f8ca6dd1ccfd8476 100755 (executable)
--- a/basis/windows/dinput/constants/constants.factor
+++ b/basis/windows/dinput/constants/constants.factor
@@ -78,7 +78,7 @@ SYMBOLS:
 
 : (malloc-guid-symbol) ( symbol guid -- )
     global swap '[ [
-        , execute [ byte-length malloc ] [ over byte-array>memory ] bi
+        _ execute [ byte-length malloc ] [ over byte-array>memory ] bi
     ] unless* ] change-at ;
 
 : define-guid-constants ( -- )